Description Usage Format Details Author(s) Examples
Standard band names with upper and lower limits (wavenumbers)
1 |
factor; band names
numeric; upper value
numeric; lower value
Standard wavenumbers are required by the read.opus
function. Each "SpectraModel"
might require different standard bands.
Andrew Sila and Tomislav Hengl
1 2 3 4 5 6 7 8 9 10 11 | data(m.PHIHOX)
## get bands of interest:
w <- attr(m.PHIHOX@model$opt.coef, "dimnames")[[1]]
nc <- as.numeric(sapply(w, function(x){gsub("[^0-9.]", "", x)}))
rn <- rank(nc)
if(any(duplicated(rn))){ warning("Duplicate bands detected") }
UPPER = c((nc[rn][-length(nc)]+nc[rn][-1])/2, nc[rn][length(nc)]+1)
wns <- data.frame(BAND=w, LOWER=c(nc[rn][1]-1, UPPER[-length(nc)]), UPPER=UPPER)
str(wns)
## compare with:
str(wavenumbers)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.