data(plants_xy)
y <- thinning(
xy = plants_xy,
minimum.distance = 10
)
if (interactive()) {
plot(
plants_xy[, c("x", "y")],
col = "blue",
pch = 15
)
points(
y[, c("x", "y")],
col = "red",
pch = 15
)
}
Run the code above in your browser using DataLab