In chaolab2019/chaoUtility: chao lab utility

knitr::opts_chunk$set(collapse = TRUE, comment = "",
                      fig.retina=2,
                      fig.align='center',
                      fig.width = 7, fig.height = 5,
                      warning = FALSE, message = FALSE)

library(chaoUtility)

MAIN FUNCTION: phylo2phytree()

EXAMPLES

library(chaoUtility)
data(treesample)
newphy<-phylo2phytree(treesample)

newphy$leaves

newphy$nodes

newphy$phytree


newphy$treeH

library(ape)
plot(treesample)
tiplabels()
nodelabels()
library(dplyr)
nodetext<-newphy$phytree %>% filter(tgroup!="leaves") %>% pull(label)
nodelabels(text=nodetext,adj=c(0,2.2))
edgelabels(treesample$edge.length, bg="black", col="white", font=2)