powered by
tile.list()
tile.centroids(xxx)
x
y
set.seed(42) x <- runif(20) y <- runif(20) d <- deldir(x,y) l <- tile.list(d) g <- tile.centroids(l) plot(l,close=TRUE) points(g,pch=20,col="red")
Run the code above in your browser using DataLab