यहाँ उदाहरण कोड है। इस कोड को अपने सभी आपदाओं के प्रसंस्करण के लिए लूप में काम करने के लिए अनुकूलित करना काफी सीधा है। यदि आपके रैस्टर एक सामान्य सीमा और रिज़ॉल्यूशन साझा करते हैं, तो आप स्टैक में बैंड के माध्यम से एक रैस्टर स्टैक और लूप बना सकते हैं। किसी डाइरेक्टरी में सभी रैस्टर्स युक्त वेक्टर बनाने के लिए, एक विशिष्ट प्रारूप में, आप "list.files" का उपयोग कर सकते हैं और फिर स्टैक के लिए इस वेक्टर को पास कर सकते हैं।
उदाहरण:
rlist=list.files(getwd(), pattern="img$", full.names=TRUE)
r <- stack(rlist)
# Add required libraries
require(raster)
require(sp)
require(rgdal)
# Set working directory, raster, in and out shapefiles
setwd("C:/test")
inshp="MyPolys"
outshp="PolyMeans"
rdata <- "Year2012.img"
# Read polygon feature class shapefile
sdata <- readOGR(dsn=getwd(), layer=inshp)
# Read raster
r <- raster(rdata)
# Extract raster values to list object
r.vals <- extract(r, sdata)
# Use list apply to calculate mean for each polygon
r.mean <- lapply(r.vals, FUN=mean)
# Join mean values to polygon data
sdata@data <- data.frame(sdata@data, m2012=r.mean)
# Write results
writeOGR(sdata, getwd(), outshp, driver="ESRI Shapefile", check_exists=TRUE,
overwrite_layer=TRUE)