# NOT RUN {
## create and resample raster
r.file <- system.file("pictures", "cea.tif", package="rgdal")
r <- arc.raster(arc.open(r.file), nrow=200, ncol=200, resample_type="CubicConvolution")
r
stopifnot(r$nrow == 200)
# }
Run the code above in your browser using DataLab