(lattice <- fm_lattice_Nd(
list(
seq(0, 1, length.out = 3),
seq(0, 1, length.out = 4),
seq(0, 1, length.out = 2)
)
))
if (requireNamespace("geometry", quietly = TRUE)) {
(mesh <- fm_delaunay_3d(lattice$loc))
}
Run the code above in your browser using DataLab