if (FALSE) {
# Install phyloseq to get example data
# source('http://bioconductor.org/biocLite.R')
# biocLite('phyloseq')
# Parse example dataset
library(phyloseq)
data(GlobalPatterns)
x <- parse_phyloseq(GlobalPatterns)
# Plot data
heat_tree(x,
node_size = n_obs,
node_color = n_obs,
node_label = taxon_names,
tree_label = taxon_names)
}
Run the code above in your browser using DataLab