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