data(spectral_data)
## Calculate 1st derivation
d1 <- derivative.speclib(spectral_data)
## Calculate 2nd derivation
d2 <- derivative.speclib(spectral_data, m = 2)
## Calculate 3rd derivation
d3 <- derivative.speclib(spectral_data, m = 3)
par(mfrow=c(2,2))
plot(spectral_data)
plot(d1)
plot(d2)
plot(d3)
Run the code above in your browser using DataLab