# NOT RUN {
## Download NDVI3g.v1 sample data
gimms_files <- downloadGimms(x = as.Date("2000-01-01"),
y = as.Date("2000-12-31"))
## Extent for clipping
shp <- getData("GADM", country = "DEU", level = 0, path = tmpDir())
## Rasterize without quality control
gimms_raster <- rasterizeGimms(x = gimms_files,
ext = shp) # clipping
plot(gimms_raster[[1]])
lines(shp)
## Rasterize with quality control
gimms_rasterq <- rasterizeGimms(x = gimms_files,
ext = shp, # clipping
keep = 0) # quality control
plot(gimms_rasterq[[1]])
lines(shp)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab