# 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