R/Landsat5_NDVI.R

Defines functions Landsat5_NDVI

Documented in Landsat5_NDVI

# creating NDVI from Landsat 5 bands
Landsat5_NDVI <- function(main, sub){
  redBand <- raster(paste0(getwd(),"/",main[1],"/",sub[grep("B3", sub)]))
  nirBand <- raster(paste0(getwd(),"/",main[1],"/",sub[grep("B4", sub)]))
  NDVI <- NDVI(redBand, nirBand)
  return(NDVI)
}
kluter/LCquickVieweR documentation built on Dec. 3, 2020, 9:55 p.m.