# NOT RUN {
# Loading example data
data(australia)
spectra(australia) <- sr_no ~ ... ~ 350:2500
s <- apply_spectra(australia, continuum_removal)
plot(s)
s <- apply_spectra(australia, continuum_removal, upper = FALSE)
plot(s)
# }
Run the code above in your browser using DataLab