# NOT RUN {
library(raster)
path_files <- system.file("extdata/", package="nightmares")
bands <- stack(list.files(path_files,".tif", full.names=TRUE))
x <- ref_oli(bands, sun.elev= 67.97)
evi <- EVI(x[[2]], x[[4]], x[[5]])
LAI(evi)
# }
Run the code above in your browser using DataLab