#--- Load raster and existing plots---#
r <- system.file("extdata", "mraster.tif", package = "sgsR")
mr <- terra::rast(r)
e <- system.file("extdata", "existing.shp", package = "sgsR")
e <- sf::st_read(e)
a <- system.file("extdata", "access.shp", package = "sgsR")
ac <- sf::st_read(a)
sample_clhs(
mraster = mr,
nSamp = 200,
plot = TRUE,
iter = 100
)
sample_clhs(
mraster = mr,
nSamp = 400,
existing = e,
iter = 250,
details = TRUE
)
Run the code above in your browser using DataLab