# NOT RUN {
{
require(raster)
r1 <- raster(xmn=1, xmx=90, ymn=1, ymx=90, res=1, vals=1) # image 1
r2 <- raster(xmn=50, xmx=150, ymn=50, ymx=150, res=1, vals=1) # image 2
r0 <- raster(xmn=20, xmx=90, ymn=50, ymx=90, res=1, vals=1) # target extent
crs(r0) <- crs(r2) <- crs(r1)
mes <- meStack(list(r1, r2), r0)
plot(mes$stack)
}
# }
Run the code above in your browser using DataLab