Spectral smoothing by splines.

Source: R/spc.spline.R

Spectral smoothing by splines.

spc.smooth.spline(spc, newx = wl(spc), ...)

Arguments

spc

hyperSpec object
newx

wavelengh axis to interpolate on
...

further parameters handed to stats::smooth.spline()

Value

hyperSpec object containing smoothed spectra

Note

This function is still experimental

See also

spc.loess()

stats::smooth.spline()

Author

Claudia Beleites

Examples

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)