if (FALSE) {
tmp <- tempdir()
## Download NDVI3g.v1 sample data
gimms_files <- downloadGimms(x = as.Date("2000-01-01"),
y = as.Date("2000-12-31"),
dsn = tmp)
## Extent for clipping
shp <- getData("GADM", country = "DEU", level = 0, path = tmp)
## 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)
}
Run the code above in your browser using DataLab