library(tessellation)
pts <- rbind(
c(-5, -5, 16),
c(-5, 8, 3),
c(4, -1, 3),
c(4, -5, 7),
c(4, -1, -10),
c(4, -5, -10),
c(-5, 8, -10),
c(-5, -5, -10)
)
tess <- delaunay(pts)
getDelaunaySimplices(tess)
Run the code above in your browser using DataLab