options(warn = 2)
newick <- "((A:2,B:2):8,(C:2,B:2):8);"
phylogeny <- ape::read.tree(text = newick)
gamma <- ape::gammaStat(phylogeny)
plot(phylogeny, main = gamma)
newick <- "((A:3,B:3):6,(C:3,B:3):6);"
phylogeny <- ape::read.tree(text = newick)
gamma <- ape::gammaStat(phylogeny)
plot(phylogeny, main = gamma)
newick <- "((A:8,B:8):2,(C:8,B:8):2);"
phylogeny <- ape::read.tree(text = newick)
gamma <- ape::gammaStat(phylogeny)
plot(phylogeny, main = gamma)


richelbilderbeek/ribir documentation built on March 19, 2021, 3:55 a.m.