# NOT RUN {
data(NIRsoil)
wav <- as.numeric(colnames(NIRsoil$spc))
# plot of the 10 first abs spectra
matplot(wav,
t(NIRsoil$spc[1:10,]),
type = 'l',
ylim = c(0,.6),
xlab = 'Wavelength /nm',
ylab='Abs')
cr <- continuumRemoval(NIRsoil$spc, wav, type = 'A')
matlines(wav, t(cr[1:10,]))
# }
Run the code above in your browser using DataLab