spc.smooth.spline {hyperSpec} | R Documentation |
Smoothing splines
spc.smooth.spline(spc, newx = wl(spc), ...)
spc |
hyperSpec object |
newx |
wavelengh axis to interpolate on |
... |
further parameters handed to |
Spectral smoothing by splines
hyperSpec object containing smoothed spectra
This function is still experimental
Claudia Beleites
p <- paracetamol [,,2200 ~ max]
plot (p, col = "gray")
smooth <- spc.smooth.spline (p [,, c (2200 ~ 2400, 2500 ~ 2825, 3150 ~ max)],
wl (paracetamol [,, 2200 ~ max]),
df = 4, spar = 1)
plot (smooth, col = "red", add = TRUE)
plot (p - smooth)