data(otutab, package = "pcutils")
df2tree(taxonomy) -> tax_tree
print(tax_tree)
# check all nodes matched!
if (requireNamespace("picante")) {
picante::match.phylo.comm(tax_tree, t(otutab)) -> nn
nrow(nn$comm) == nrow(t(otutab))
}
Run the code above in your browser using DataLab