### Apply SNV to spectra from simdata
library(mdatools)
data(simdata)
spectra = simdata$spectra.c
wavelength = simdata$wavelength
cspectra = prep.snv(spectra)
par(mfrow = c(2, 1))
mdaplot(cbind(wavelength, t(spectra)), type = 'l', main = 'Before SNV')
mdaplot(cbind(wavelength, t(cspectra)), type = 'l', main = 'After SNV')
Run the code above in your browser using DataLab