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