library(sf)
support <- st_as_sf(
data.frame(id = 1),
geometry = st_sfc(st_polygon(list(
cbind(c(0, 10, 10, 0, 0), c(0, 0, 10, 10, 0))
))),
crs = 32631
)
pts <- st_as_sf(
data.frame(id = 1:4),
geometry = st_sfc(
st_point(c(5, 5)),
st_point(c(2, 2)),
st_point(c(15, 5)),
st_point(c(12, 5))
),
crs = 32631
)
result <- aoe(pts, support)
aoe_summary(result)
Run the code above in your browser using DataLab