if (FALSE) {
library(terra)
if (requireNamespace("sf", quietly = TRUE)) {
library(sf)
volcano = rast(system.file("raster/volcano.tif", package = "regional"))
vr = read_sf(system.file("regions/volcano_regions.gpkg", package = "regional"))
vr$iso = reg_isolation(vr, volcano, sample_size = 1)
mean(vr$iso)
plot(volcano)
plot(vect(vr), add = TRUE)
plot(volcano)
plot(vr["iso"], add = TRUE)
}
}
Run the code above in your browser using DataLab