library(rbiom)
infile <- system.file("extdata", "hmp50.bz2", package = "rbiom")
biom <- read_biom(infile)
print(biom)
# Taxa Abundances
biom$counts[1:4,1:10] %>% as.matrix()
biom$taxonomy %>% head()
# Metadata
biom$metadata %>% head()
table(biom$metadata$Sex, biom$metadata$`Body Site`)
sprintf("Mean age: %.1f", mean(biom$metadata$Age))
# Phylogenetic tree
biom$tree %>%
tree_subset(1:10) %>%
plot()
Run the code above in your browser using DataLab