if (FALSE) {
#--- Load raster and access files ---#
r <- system.file("extdata", "mraster.tif", package = "sgsR")
mr <- terra::rast(r)
#--- calculate lhsPop details ---#
mats <- calculate_pop(mraster = mr)
calculate_lhsOpt(mats = mats)
calculate_lhsOpt(
mats = mats,
PCA = FALSE,
iter = 200
)
}
Run the code above in your browser using DataLab