library(treecm)
data(stonePine1TreeData)
vectors <- treeVectors(stonePine1TreeData)
CM <- centreOfMass(vectors)
print(centreOfMassAngle(CM))
treeMoment <- buildTreeMomentObject(
centreOfMassModulus(CM)
, treeTotalBiomass(stonePine1TreeData)
, centreOfMassAngle(CM)
)
Run the code above in your browser using DataLab