mean <- 50
sd1 <- 5
sd2 <- 10
n <- 100
test <- matrix(c(dnorm(1:n, mean = mean, sd = sd1),
dnorm(1:n, mean = mean, sd = sd2)),
nrow = 2,
byrow = TRUE)
current_bands <- 1:n
new_bands <- seq(10, 90, by = 5)
FHWM <- rep(5, length(new_bands))
resampling_FWHM(spectra = test,
wavelengths = current_bands,
new_wavelengths = new_bands,
FWHM = FHWM)
Run the code above in your browser using DataLab