photobiology (version 0.10.6)

smooth_spct: Smooth a spectrum

Description

These functions implement one original methods and acts as a wrapper for other common R smoothing functions. The advantage of using this function for smoothing spectral objects is that it simplifies the user interface and sets, when needed, defaults suitable for spectral data.

Usage

smooth_spct(x, method, strength, wl.range, ...)
# S3 method for default
smooth_spct(x, method, strength, wl.range, ...)
# S3 method for source_spct
smooth_spct(
  x,
  method = "custom",
  strength = 1,
  wl.range = NULL,
  na.rm = FALSE,
  ...
)
# S3 method for filter_spct
smooth_spct(
  x,
  method = "custom",
  strength = 1,
  wl.range = NULL,
  na.rm = FALSE,
  ...
)
# S3 method for reflector_spct
smooth_spct(
  x,
  method = "custom",
  strength = 1,
  wl.range = NULL,
  na.rm = FALSE,
  ...
)
# S3 method for response_spct
smooth_spct(
  x,
  method = "custom",
  strength = 1,
  wl.range = NULL,
  na.rm = FALSE,
  ...
)
# S3 method for generic_mspct
smooth_spct(
  x,
  method = "custom",
  strength = 1,
  wl.range = NULL,
  na.rm = FALSE,
  ...
)

Arguments

x

an R object.

method

a character string "custom", "lowess", "supsmu".

strength

numeric value to adjust the degree of smoothing. Ignored if method-specific parameters are passed through ....

wl.range

any R object on which applying the method range() yields a vector of two numeric values, describing a range of wavelengths (nm). NA is interpreted as data's own min or max value.

...

other parameters passed to the underlying smoothing functions.

na.rm

logical A flag indicating whether NA values should be stripped before the computation proceeds.

Value

A copy of x with spectral data values replaced by smoothed ones.

Methods (by class)

• default: Default for generic function

• source_spct: Smooth a source spectrum

• filter_spct: Smooth a filter spectrum

• reflector_spct: Smooth a reflector spectrum

• response_spct: Smooth a response spectrum

• generic_mspct:

Examples

# NOT RUN {
my.spct <- clip_wl(sun.spct, c(400, 500))
smooth_spct(my.spct)
smooth_spct(my.spct, method = "custom", strength = 1)
smooth_spct(my.spct, method = "custom", strength = 4)
smooth_spct(my.spct, method = "supsmu", strength = 4)

# }