Rubberband baseline correction

Baseline with support points determined from a convex hull of the spectrum.

Use debuglevel >= 1 to obtain debug plots, either directly via function argument or by setting hyperSpec's debuglevel option.

spc_rubberband(spc, ..., upper = FALSE, noise = 0, spline = TRUE)

Arguments

spc	hyperSpec object
...	further parameters handed to stats::smooth.spline()
upper	logical indicating whether the lower or upper part of the hull should be used
noise	noise level to be taken into account
spline	logical indicating whether the baseline should be an interpolating spline through the support points or piece wise linear.

Value

hyperSpec object containing the baselines

Note

This function is still experimental

See also

spc_fit_poly(), spc_fit_poly_below()

vignette ("baseline")

hy.setOptions()

Author

Claudia Beleites

Examples

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)