## Model spectra using PROSAIL
parameter <- data.frame(N = rep.int(c(1, 1.5),2), LAI = c(1,1,3,3))
spec <- PROSAIL(parameterList=parameter)
## Transform spectra
spec_clman <- transformSpeclib(spec, method = "sh", out = "raw")
## Plot clman
plot(spec_clman, ispec = 1, subset = c(400, 1000))
Run the code above in your browser using DataLab