# Create simple four-taxon tree:
tree <- ape::read.tree(text = "(A,(B,(C,D)));")
# Plot tree:
plot(tree)
# Show nodelabels:
nodelabels()
# Show edgelabels (note that edges 5 and 6
# are descendants of node 7):
edgelabels()
# Use find_descendant_edges to show that edges
# 5 and 6 are descendants of node 7:
find_descendant_edges(n = 7, tree = tree)
Run the code above in your browser using DataLab