# NOT RUN {
data(nose)
bary <- barycenter(shortnose.mesh)
# }
# NOT RUN {
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