data(spectral_data)
## Set mask for channel crossing and water absorption bands
mask(spectral_data) <- c(1040, 1060, 1350, 1450)
## Simple example
plot(spectral_data, legend = list(x = "topleft"))
## Example with groups
plot(spectral_data, bygroups = TRUE, legend = list(x = "topleft"))
## Example with function
par(mfrow = c(2,3))
plot(spectral_data, FUN = "min", main = "Minimum of speclib")
plot(spectral_data, FUN = "max", main = "Maximum of speclib")
plot(spectral_data, FUN = "median", main = "Median of speclib")
plot(spectral_data, FUN = "mean", main = "Mean of speclib")
plot(spectral_data, FUN = "var", main = "Variance of speclib")
Run the code above in your browser using DataLab