Compute the spectral signature using Gaussian peaks.

Source: R/RcppExports.R

Calculates the value of the squared exponential radial basis function at the given wavelengths, given the parameters of the peaks. This function is thread-safe.

weightedGaussian(location, scale, amplitude, wavelengths)

Arguments

location

Vector of location parameters of the peaks (mean).

scale

Vector of scale parameters of the peaks (standard deviation).

amplitude

Vector of amplitudes of the peaks.

wavelengths

Vector of wavenumbers at which to compute the function.

Value

The value of the Gaussian function at the given wavelengths.

Examples

  Cal_V <- seq(300,400,by=5)
  loc <- c(320,350,375)
  sca <- c(10,5,18)
  amp <- c(1000,5000,2000)
  weightedGaussian(loc,sca,amp,Cal_V)
#>  [1]  135.6750  325.6924  609.4778  890.2287 1018.7782  924.7348  696.0818
#>  [8]  549.5134 1114.0248 3575.2946 5773.4518 4113.6558 2090.3084 1769.5788
#> [15] 1925.9900 2000.0189 1924.3091 1713.9938 1413.2966 1078.8150  762.3428