# NOT RUN {
radar <- raster::raster(ncol=10, nrow=10)
val <- seq(-12,-7, length.out=100)
radar[] <- val
A= -9.596695
B= -0.005331
C= -11.758309
D= 0.011344
lut <- lut_wcm(LAI=seq(1,6,0.1), SM=seq(0,.6,.01),coeff=c(A,B,C,D))
example(out_lai <- lai_inversion_lut(img = radar,lookuptable = lut))
# }
Run the code above in your browser using DataLab