Last chance! 50% off unlimited learning
Sale ends in
hyperSpec
object so that the wavelength vector is in increasing (or
decreasing) order.orderwl(x, na.last = TRUE, decreasing = FALSE,
short = "orderwl", date = NULL, user = NULL)
hyperSpec
object.order
.logentry
.hyperSpec
object.order
## Example 1: different drawing order in plotspc
spc <- new ("hyperSpec", spc = matrix (rnorm (5) + 1:5, ncol = 5))
spc <- cbind (spc, spc+.5)
plot (spc, "spc")
text (wl (spc), spc [[]], as.character (1:10))
spc <- orderwl (spc)
plot (spc, "spc")
text (wl (spc), spc [[]], as.character (1:10))
## Example 2
spc <- new ("hyperSpec", spc = matrix (rnorm (5)*2 + 1:5, ncol = 5))
spc <- cbind (spc, spc)
plot (seq_len(nwl(spc)), spc[[]], type = "b")
spc[[]]
spc <- orderwl (spc)
lines (seq_len(nwl(spc)), spc[[]], type = "l", col = "red")
spc[[]]
Run the code above in your browser using DataLab