if (requireNamespace("phyloseq", quietly = TRUE)) {
data(GlobalPatterns, package = "phyloseq")
# Make a small phyloseq object for demonstration
phyloseq_subset = phyloseq::subset_taxa(phyloseq::subset_samples(GlobalPatterns,
X.SampleID %in%
c("CL3", "CC1")),
Order == "Cenarchaeales")
otu_table = relab_phyloseq(phyloseq_subset)
otu_table[, 1:10]
}
Run the code above in your browser using DataLab