if (FALSE) {
library(rbiom)
print(hmp50)
# Requires 'animalcules', a Bioconductor R package
if (nzchar(system.file(package = "animalcules"))) {
ani <- convert_to_animalcules(hmp50)
print(ani)
}
# Requires 'biomformat', a Bioconductor R package
if (nzchar(system.file(package = "biomformat"))) {
bio <- convert_to_biomformat(hmp50)
print(bio)
}
# Requires 'phyloseq', a Bioconductor R package
if (nzchar(system.file(package = "phyloseq"))) {
phy <- convert_to_phyloseq(hmp50)
print(phy)
}
# Requires 'SummarizedExperiment', a Bioconductor R package
if (nzchar(system.file(package = "SummarizedExperiment"))) {
se <- convert_to_SE(hmp50)
print(se)
}
# Requires 'TreeSummarizedExperiment', a Bioconductor R package
if (nzchar(system.file(package = "TreeSummarizedExperiment"))) {
tse <- convert_to_TSE(hmp50)
print(tse)
}
}
Run the code above in your browser using DataLab