## Not run: ------------------------------------
# # dontrun() used because running the example requires internet access.
#
# dat <- EndCoordinatesExample
# names(dat) <- c("lat", "long", "start.date", "end.date", "ID")
#
# MODISSubsets(dat, Products = "MOD13Q1", Size = c(1,1), StartDate = TRUE,
# Bands = c("250m_16_days_EVI", "250m_16_days_NDVI", "250m_16_days_pixel_reliability"))
#
# MODISGrid(NoDataValues = list("MOD13Q1" = c("250m_16_days_EVI" = -3000,
# "250m_16_days_NDVI" = -3000,
# "250m_16_days_pixel_reliability" = -1)))
#
## ---------------------------------------------
Run the code above in your browser using DataLab