ispc <- sample (nrow (laser), 10)
ispc
identified <- spc.identify (plotspc (laser[ispc]))
## convert to the "real" spectra indices
ispc [identified$i]
identified$wavelength
spc.identify (plotspc (laser[ispc]), ispc = ispc)
Run the code above in your browser using DataLab