mesh_sub <- fm_subset(fmexample$mesh, 1:100)
mesh_sub
plot(mesh_sub)
if (requireNamespace("geometry", quietly = TRUE)) {
print(m <- fm_delaunay_3d(matrix(rnorm(30), 10, 3)))
print(fm_subset(m, seq_len(min(5, nrow(m$graph$tv)))))
}
Run the code above in your browser using DataLab