data(stonePine1TreeData)
vectors <- treeVectors(stonePine1TreeData)
CM <- centreOfMass(vectors)
plot(vectors,
main = "Centre Of Mass",
col = "grey30",
txtcol = "grey30")
plot(CM)
summary(CM)
Run the code above in your browser using DataLab