# NOT RUN {
library(ape)
library(data.tree)
data(acme)
ap <- as.phylo(acme)
plot(ap)
nodelabels("IT Dep.", GetPhyloNr(acme$Climb("IT")))
edgelabels("Good!", GetPhyloNr(acme$Climb("IT", "Switch to R"), "edge"))
# }
Run the code above in your browser using DataLab