for (i in 1:11) {
for (j in 1982:2020) {
date_start = ee$Date$fromYMD(j, i, 1)
date_end = ee$Date$fromYMD(j,i+1,1)
ndvi_composite = cdr_ndvi$
filter(ee$Filter$date(date_start, date_end))$
max()
tiffnames= as.character.Date(eedate_to_rdate(date_start))
cdr_ndvi_cmr <- ee_as_raster(
image = ndvi_composite,
region = ee_roi$geometry(),
scale = 5000,
dsn = paste0('./CDR_NDVI_MVC/', tiffnames),
via = "drive"
)
}
}
for (j in 1982:2020) {
date_start = ee$Date$fromYMD(j, 12, 1)
date_end = ee$Date$fromYMD(j+1,1,1)
ndvi_composite = cdr_ndvi$
filter(ee$Filter$date(date_start, date_end))$
max()
tiffnames= as.character.Date(eedate_to_rdate(date_start))
cdr_ndvi_cmr <- ee_as_raster(
image = ndvi_composite,
region = ee_roi$geometry(),
scale = 5000,
dsn = paste0('./CDR_NDVI_MVC/', tiffnames),
via = "drive"
)
}