library(rbiom)
b1 <- as_rbiom(hmp50$counts[,1:4])
b2 <- as_rbiom(hmp50$counts[,5:8])
biom <- biom_merge(b1, b2)
print(biom)
biom$tree <- hmp50$tree
biom$metadata <- hmp50$metadata
print(biom)
Run the code above in your browser using DataLab