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

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

ndwi <- geo_index(img, "NDWI")
index_summary(ndwi)

## ----mndwi--------------------------------------------------------------------
mndwi <- geo_index(img, "MNDWI")
index_summary(mndwi)

## ----ndmi---------------------------------------------------------------------
ndmi <- geo_index(img, "NDMI")
index_summary(ndmi)

## ----water_comparison---------------------------------------------------------
water_stack <- geo_indices(img, c("NDWI", "MNDWI", "NDMI"))
index_summary(water_stack)