if (FALSE) {
tfs = runGdal("MOD13Q1", collection = "006",
begin = "2000353", end = "2000366", extent = "Luxembourg",
job = "reformatDOY", SDSstring = "000000000010")
## raw doy
raw <- raster(unlist(tfs))
unique(raw[])
## reformatted dates
rfm <- reformatDOY(raw)
unique(rfm[])
}
Run the code above in your browser using DataLab