# NOT RUN {
data(geospiza)
edges(geospiza)
edgeOrder(geospiza)
geoPost <- reorder(geospiza, "postorder")
edgeOrder(geoPost)
## with a binary tree this should always be true
identical(!terminalEdges(geospiza), internalEdges(geospiza))
# }
Run the code above in your browser using DataCamp Workspace