Skip to content

Instantly share code, notes, and snippets.

@Kirubaharan
Created April 30, 2015 11:57
Show Gist options
  • Save Kirubaharan/89a19508c15c86b0dbc1 to your computer and use it in GitHub Desktop.
Save Kirubaharan/89a19508c15c86b0dbc1 to your computer and use it in GitHub Desktop.
monthly modis download
library(MODIS)
product <- "MOD13A3"
#h25v07
#1999-2011
dates <- as.POSIXct(as.Date(c("01/01/1999", "31/12/2011"), format="%d/%m/%Y"))
dates2 <- transDate(dates[1], dates[2])
h = "25"
v = "07"
MODISoptions(localArcPath = "/media//kiruba//New Volume//MODIS//veg_ind_monthly//download", outDirPath = "/media//kiruba/New Volume/MODIS/veg_ind_monthly")
runGdal(product = product, begin = dates2$beginDOY, end = dates2$endDOY, tileH = h, tileV = v)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment