library(rbiom)
write_tree(hmp50) %>% substr(1, 50)
if (FALSE) {
hmp10 <- hmp50$clone()
hmp10$counts <- hmp10$counts[,1:10] %>% rarefy_cols()
attr(hmp10, "Weighted UniFrac") <- bdiv_distmat(hmp10, 'unifrac')
attr(hmp10, "Unweighted Jaccard") <- bdiv_distmat(hmp10, 'jaccard', weighted=FALSE)
outfile <- write_xlsx(hmp10, tempfile(fileext = ".xlsx"))
}
Run the code above in your browser using DataLab