library(rbiom)
infile <- system.file("extdata", "hmp50.bz2", package = "rbiom")
biom <- read.biom(infile)
biom <- select(biom, 1:10)
dm <- beta.div(biom, 'unifrac')
as.matrix(dm)[1:4,1:4]
plot(hclust(dm))
Run the code above in your browser using DataLab