mtgfile <- system.file("extdata/plant1.mtg", package = "dad")
xmtg <- read.mtg(mtgfile)
# The branching orders
ymtg <- mtgorder(xmtg)
print(ymtg)
# Add the branching orders to the 'foldermtg'
zmtg <- mtgorder(xmtg, display = TRUE)
print(zmtg)
Run the code above in your browser using DataLab