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)
calculate_coobs(
mraster = mr,
existing = e,
cores = 4
)
}
Run the code above in your browser using DataLab