spectra <- getSpectraInTimeExample()
spectraConstCorrect <- localBaselineCorrect( spectra , baseWavelengths = 240 )
spectraLinCorrect <- localBaselineCorrect( spectra , c( 250 , 330 ) )
# \donttest{
plot( spectra )
plot( spectraConstCorrect )
plot( spectraLinCorrect )
# }
Run the code above in your browser using DataLab