updated get_vegetation

healthinnovation · Oct 2, 2023 · 358a546 · 358a546
1 parent 45a2b3c
commit 358a546
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/get_vegetation.R b/R/get_vegetation.R
@@ -56,17 +56,17 @@ get_vegetation <- function(from, to, band, region, fun = "count", scale = 1000)
 
   # Message of error
 
-  if (end_year < 1999 | start_year >= 2021) {
+  if (end_year < 1999 | start_year > 2024) {
     print(sprintf("No exist data"))
   }
 
   # NDVI - EVI
 
   if (band == "SAVI") {
-    collection <- ee$ImageCollection("MODIS/006/MOD13A1")$
+    collection <- ee$ImageCollection("MODIS/061/MOD13A1")$
       select(c("sur_refl_b01", "sur_refl_b02", "DetailedQA"))
   } else {
-    collection <- ee$ImageCollection("MODIS/006/MOD13A1")$
+    collection <- ee$ImageCollection("MODIS/061/MOD13A1")$
       select(c(band, "DetailedQA"))
   }