# NOT RUN {
myCrs = CRS("+proj=utm +zone=17 +ellps=GRS80 +units=m +no_defs")
mylist = list(a=raster(matrix(1:9, 3, 3), 0,1,0,1,
crs=myCrs),
b=raster(matrix(1:25, 5, 5), -1, 2, -1, 2,
crs=myCrs)
)
mystack = stackRasterList(mylist)
mystack
mylist = list(
a=raster(matrix(1:36, 6, 6,byrow=TRUE), 0,1000,0,1000,
crs=myCrs),
b=raster(matrix(1:144, 12, 12), -200, 200, -200, 200,
crs=myCrs),
c=raster(matrix(1:100, 10, 10), -5000,5000,-5000,5000,
crs=myCrs)
)
if(.Platform$OS.type=='unix' & require('rgdal', quietly=TRUE)) {
mystack = stackRasterList(mylist,mc.cores=2)
mystack
}
plot(mystack[["b"]], main="stack b")
plot(mystack[['a']],add=TRUE,col=grey(seq(0,1,len=12)),alpha=0.8,legend=FALSE)
# }
Run the code above in your browser using DataLab