library(sf)
# Create a border line
border <- st_as_sf(
data.frame(id = 1),
geometry = st_sfc(st_linestring(matrix(
c(0, 0, 100, 100), ncol = 2, byrow = TRUE
))),
crs = 32631
)
# Create points
pts <- st_as_sf(
data.frame(id = 1:6),
geometry = st_sfc(
st_point(c(10, 20)), # near border, side 1
st_point(c(30, 10)), # near border, side 2
st_point(c(50, 80)), # far from border, side 1
st_point(c(80, 40)), # far from border, side 2
st_point(c(5, 5)), # very close to border
st_point(c(200, 200)) # outside study area
),
crs = 32631
)
# Classify by distance from border
result <- aoe_border(pts, border, width = 20)
Run the code above in your browser using DataLab