if (FALSE) {
library(tidyrgee)
ee_Initialize()
modis_ic <- ee$ImageCollection("MODIS/006/MOD13Q1")
modis_ic_tidy <- as_tidyee(modis_ic)
# select NDVI band
modis_ndvi <- modis_ic_tidy |>
select("NDVI")
# select NDVI band, but change band to new name
modis_ndvi_renamed <- modis_ic_tidy |>
select(ndvi_new= "NDVI")
}
Run the code above in your browser using DataLab