#--- Load raster ---#
r <- system.file("extdata", "mraster.tif", package = "sgsR")
mr <- terra::rast(r)
#--- create vector breaks ---#
br.zq90 <- c(3, 5, 11, 18)
br.pz2 <- c(20, 40, 60, 80)
strat_breaks(
mraster = mr$zq90,
breaks = br.zq90
)
strat_breaks(
mraster = mr[[1:2]],
breaks = list(br.zq90, br.pz2),
details = TRUE
)
Run the code above in your browser using DataLab