#--- Load raster and existing plots---#
r <- system.file("extdata", "mraster.tif", package = "sgsR")
mr <- terra::rast(r)
strat_quantiles(
mraster = mr$zq90,
nStrata = 4
)
strat_quantiles(
mraster = mr[[1:2]],
nStrata = list(c(0.2, 0.4, 0.8), 3),
map = TRUE
)
Run the code above in your browser using DataLab