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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.