if (FALSE) {
library(visa)
data(NSpec.DF)
x <- NSpec.DF$N # nitrogen
S <- NSpec.DF$spectra[, seq(1, ncol(NSpec.DF$spectra), 10)] # resampled to 10 nm steps
cm2d <- cm.sr(S, x, cm.plot = FALSE)
p2d <- plt.2dcm(cm2d)
print(p2d)
}
Run the code above in your browser using DataLab