r<- rast(volcano, extent= ext(2667400, 2667400 + ncol(volcano)*10,
6478700, 6478700 + nrow(volcano)*10),
crs = "EPSG:27200")
rq1 <- quantize_raster(r = r, n_levels = 16, method = "equal prob")
rq2 <- quantize_raster(r = r, n_levels = 16, method = "equal range")
Run the code above in your browser using DataLab