p <- vect( matrix(c(0, .5, .6, 5, 5.5, 50), ncol=2, nrow=6), crs="lonlat")
values(p) <- data.frame(id=1:6)
nrow(p)
# points that are at least 200 km apart
p2 <- thin(p, 200000)
nrow(p2)
# same, using km
p3 <- thin(p, 200, unit="km")
nrow(p3)
Run the code above in your browser using DataLab