#plotting richness scores
## Not run: data(MyEOLs)
# library(ape)
# data(MyHiers)
# Tree <- MakeHierarchyTree(MyHiers, includeNodeLabels=FALSE)
# MyData <- MatchHierPageToEOLdata(MyHiers, GetRichnessScores(MyEOLs))
# plot(Tree, label.offset=1, x.lim=10)
# tiplabels(round(as.numeric(MyData[,3])), 1:6, col="Blue", frame="none",
# bg="clear",adj = -0.5)
# title(main="Richness scores")
# ## End(Not run)
Run the code above in your browser using DataLab