data(nose)
bary <- barycenter(shortnose.mesh)
if (FALSE) {
require(rgl)
##visualize mesh
wire3d(shortnose.mesh)
# visualize barycenters
points3d(bary, col=2)
## now each triangle is equipped with a point in its barycenter
}
Run the code above in your browser using DataLab