if (FALSE) {
library(tidyrgee)
library(rgee)
ee_Initialize()
modis_ic <- ee$ImageCollection("MODIS/006/MOD13Q1")
modis_ic |>
filter(date>="2016-01-01",date<="2019-12-31") |>
group_by(year) |>
summarise(stat="max")
}
Run the code above in your browser using DataLab