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