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$inh = reg_inhomogeneity(vr, volcano, sample_size = 1)
mean(vr$inh)
plot(volcano)
plot(vect(vr), add = TRUE)
plot(volcano)
plot(vr["inh"], add = TRUE)
}
}
Run the code above in your browser using DataLab