if (FALSE) {
extd.dir <- system.file("extdata", package = "pacu")
area.of.interest <- sf::st_read(file.path(extd.dir, 'cobs_a_aoi.shp'), quiet = TRUE)
ndvi <- pa_get_vi_stats(aoi = area.of.interest,
start.date = '2021-01-01',
end.date = '2021-12-31',
vegetation.index = 'ndvi')
}
Run the code above in your browser using DataLab