## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----ndvi_example-------------------------------------------------------------
library(GeoIndexR)
img <- get_example_data()

ndvi <- geo_index(img, "NDVI")
index_summary(ndvi)

## ----savi_example-------------------------------------------------------------
savi_standard <- geo_index(img, "SAVI", L = 0.5)
savi_sparse   <- geo_index(img, "SAVI", L = 1.0)

index_summary(c(savi_standard, savi_sparse))

## ----evi_example--------------------------------------------------------------
evi <- geo_index(img, "EVI")
index_summary(evi)

## ----gndvi_example------------------------------------------------------------
gndvi <- geo_index(img, "GNDVI")
index_summary(gndvi)

## ----comparison---------------------------------------------------------------
veg_stack <- geo_indices(img, c("NDVI", "SAVI", "EVI", "GNDVI"))
index_summary(veg_stack)