SNV + Detrend with "Prospectr" package

I was using the function “detrend” from the “pracma” package, but we have the detrend function in the “prospectr” package. Using this last option we combine the SNV with the Detrend, which is a very common math-treatment to remove the scatter.

Looking to the function script the “sweep” function is used to center and scale the spectra matrix.

 

Using the shootout 2002 data:

>X1_detrend2<-detrend(nir.training1$X,

+wav=as.numeric(colnames(nir.training1$X)))

>matplot(wavelength2,t(X1_detrend2),type="l",lty=1,

+xlab="Wavelength(nm)",ylab="1/R",col=3,

+main="SNV + Detrend")

I compare with these plots the way prospectr runs the SNV detrend versus the other way I used in other posts.

Green with prospectr package and blue with pracma package.