# NOT RUN {
# The image was generated with the following code:
require(raster)
set.seed(0)
test_matrix <- matrix(runif(100)*32, nrow=10)
test_raster <- raster(test_matrix, crs='+init=EPSG:4326')
test_raster <- cut(test_raster, seq(0, 32))
# }
Run the code above in your browser using DataCamp Workspace