(DEPRECATED) Spectral smoothing by splines

Source: R/DEPRECATED-spc_spline.R

These hyperSpec functions are deprecated and not maintained anymore. Currently they are present due to back-compatibility reasons and will be removed in the next release of the package. Please, use the suggested alternative functions instead.

_____________

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
)

#> Warning: Function 'spc.smooth.spline' is deprecated. 
#> Use function 'spc_smooth_spline' instead.
#> Warning: Function 'orderwl' is deprecated. 
#> Use function 'wl_sort' instead.
plot(smooth, col = "red", add = TRUE)


plot(p - smooth)