library(sf)
library(terra)
# read meuse data and create convex hull
if (require(sp, quietly = TRUE)) {
data(meuse, package = "sp")
meuse <- st_as_sf(meuse, coords = c("x", "y"), crs = 28992, agr = "constant")
e <- st_convex_hull(st_union(meuse))
# Fixed size 250 and no rotation
s <- quadrats(e, s = 250, n = 10)
plot(st_geometry(s))
# \donttest{
# Variable sizes 100-300 and rotation of 0-45 degrees
s <- quadrats(e, s = c(100,300), n = 10, r = c(0,45))
plot(st_geometry(s))
# Variable sizes 100-300 and no rotation
s <- quadrats(e, s = c(100,300), n = 10)
plot(st_geometry(s))
# }
} else {
cat("Please install sp package to run example", "\n")
}
Run the code above in your browser using DataLab