# NOT RUN {
red <- raster::raster(ncol=100, nrow=100)
set.seed(2)
raster::values(red) = runif(10000, min=0.1, max=0.4)
NIR <- raster::raster(ncol=100, nrow=100)
set.seed(2)
raster::values(NIR) = runif(10000, min=0.1, max=0.6)
NDVI(Red = red, NIR = NIR)
# }
Run the code above in your browser using DataLab