if (FALSE) {
library(mapview)
frc <- as(subset(franconia, district == "Mittelfranken"), "Spatial")
tfs <- runGdal("MOD13A1", begin = "2015001", end = "2016366", extent = frc,
job = "temporalComposite", SDSstring = "100000000010")
ndvi <- sapply(tfs[[1]], "[[", 1)
cdoy <- sapply(tfs[[1]], "[[", 2)
mmvc <- temporalComposite(ndvi, cdoy)
plot(mmvc[[1:4]])
}
Run the code above in your browser using DataLab