m <- fmesher_mesh3d(list(cet_margin = 1),
matrix(rnorm(15), 5, 3),
matrix(c(0,1,2,3), 1, 4))
b <- fmesher_bary3d(m$loc,
m$tv,
matrix(c(0.5, 0.5, 0.5), 1, 3),
list())
Run the code above in your browser using DataLab