library(ape)
data("hivtree.newick") # example tree
cat(hivtree.newick, file = "hivtree.phy", sep = "") # generate file "hivtree.phy"
tree.hiv <- read.tree("hivtree.phy")
is.binary.tree(tree.hiv)
plot(tree.hiv)
unlink("hivtree.phy") # delete the file "hivtree.phy"
Run the code above in your browser using DataCamp Workspace