# NOT RUN {
data(NIRsoil)
wav <- as.numeric(colnames(NIRsoil$spc))
spc <- 1/10^NIRsoil$spc # conversion to reflectance
# increase spectral resolution by 2
resampled <- resample(spc, wav, seq(1100, 2498, 2))
dim(spc)
dim(resampled)
# }
Run the code above in your browser using DataLab