require(EBSpatCGAL)
del2 <- Delaunay()
insert(del2,x=runif(n<-100),y=runif(n))
## area
#print(sapply(seq(del2),function(i) del2$rcpp()$cell_area(i)))
print(area(del2))
print(volume(del2,3))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.