if (FALSE) { # interactive()
if (requireNamespace("geometry", quietly = TRUE) &&
requireNamespace("rgl", quietly = TRUE)) {
(m <- fm_delaunay_3d(matrix(rnorm(30), 10, 3)))
rgl::open3d()
rgl::triangles3d(as.triangles3d(m, "boundary"), col = "blue")
}
}
Run the code above in your browser using DataLab