data(milk)
bc.peakDetection <- baseline(milk$spectra[1,, drop=FALSE], method='peakDetection',
left=300, right=300, lwin=50, rwin=50)
# \donttest{
# To obtain the peak list, specify S/N threshold and call the baseline function directly:
bc.peakDetection2 <- baseline.peakDetection(milk$spectra[1,, drop=FALSE],
left=300, right=300, lwin=50, rwin=50, snminimum = 5)
# }
if (FALSE) {
plot(bc.peakDetection)
}
Run the code above in your browser using DataLab