knitr::opts_chunk$set(echo = TRUE)
library(ape) remote_dir="https://raw.githubusercontent.com/PacktPublishing/R-Bioinformatics-Cookbook/master" newick <-read.tree(file.path(remote_dir, "datasets", "ch4", "mammal_tree.nwk"))
plot(newick)
l <- subtrees(newick) plot(l[[4]], sub = "Node 4")
#subtreeplot(newick)
small_tree <- extract.clade(newick, 9) new_tree <- bind.tree(newick, small_tree, 3) plot(new_tree)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.