# 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)
GCI(x[[3]], x[[5]])
# }
Run the code above in your browser using DataLab