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