if (FALSE) {
#--- 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)
sample_ahels(
mraster = mr,
existing = e,
plot = TRUE
)
#--- supply quantile and covariance matrices ---#
mat <- calculate_pop(mraster = mr)
sample_ahels(
mraster = mr,
existing = e,
matrices = mat,
nSamp = 300
)
}
Run the code above in your browser using DataLab