powered by
HighLevelTree(taxa.table, tree, cur.tips, new.tips)
GetTaxonomy
data(species.tree) data(taxa.table) family.tree <- HighLevelTree(taxa.table, species.tree, 1, 2) genus.tree <- HighLevelTree(taxa.table, species.tree, 1, 3)
Run the code above in your browser using DataLab