install.packages("deldir")

install.packages("deldir")
library(deldir)
set.seed(42)
x <- runif(50)
y <- runif(50)
z <- deldir(x,y,rw=c(0,1,0,1))
w <- tile.list(z)
plot(w)
ccc <- heat.colors(20) # Or topo.colors(20), or terrain.colors(20)
# or cm.colors(20), or rainbow(20).