# NOT RUN {
r <- raster(nrow=18, ncol=36)
m <- matrix(1:ncell(r), nrow=18)
values(r) <- as.vector(t(m))
rx <- flip(r, direction='x')
values(r) <- as.vector(m)
ry <- flip(r, direction='y')
# }
Run the code above in your browser using DataCamp Workspace