#--- Load raster and access files ---#
r <- system.file("extdata", "mraster.tif", package = "sgsR")
mr <- terra::rast(r)
#--- perform stratification using k-means ---#
kmeans <- strat_kmeans(
mraster = mr,
nStrata = 5
)
kmeans <- strat_kmeans(
mraster = mr,
nStrata = 5,
iter = 1000,
algorithm = "MacQueen",
details = TRUE
)
Run the code above in your browser using DataLab