powered by
spc.rubberband(spc, ..., upper = FALSE, noise = 0, spline = TRUE)
smooth.spline
spc.fit.poly
spc.fit.poly.below
vignette ("baseline")
plot (paracetamol [,, 175 ~ 1800]) bl <- spc.rubberband (paracetamol [,, 175 ~ 1800], noise = 300, df = 20) plot (bl, add = TRUE, col = 2) plot (paracetamol [,, 175 ~ 1800] - bl)
Run the code above in your browser using DataLab