require(EBSpatCGAL)
del2 <- Delaunay()
insert(del2,matrix(runif(200),ncol=2))
(sc <- Scene()) %<<% window2d(xlab="",ylab="",main="what a beautiful plot!")
sc %<<% points(del2,col="blue") %<<% lines(del2,type="vor")
sc %<<% lines(del2)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.