(m <- fm_mesh_3d(
matrix(c(1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0), 4, 3, byrow = TRUE),
matrix(c(1, 2, 3, 4), 1, 4, byrow = TRUE)
))
if (FALSE) { # requireNamespace("geometry", quietly = TRUE)
(m <- fm_delaunay_3d(matrix(rnorm(30), 10, 3)))
}
Run the code above in your browser using DataLab