mesh_centers: Calculate centers for a set of triangles
In James-Thorson/movement_tools: Tools for movement operators in GMRF models

1	mesh_centers(mesh)

mesh

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (mesh) 
{
    center_tri = matrix(NA, nrow = nrow(mesh$graph$tt), ncol = 2)
    for (i in 1:nrow(center_tri)) center_tri[i, ] = colMeans(mesh$loc[, 
        1:2][mesh$graph$tv[i, ], ])
    return(center_tri)
  }