library(GUniFrac)
#Load in data and create a distance matrix
data(throat.tree)
data(throat.otu.tab)
unifracs <- GUniFrac(throat.otu.tab, throat.tree, alpha=c(1))$unifracs
D1 <- unifracs[,,"d_1"]
#Function call
K <- D2K(D1)
Run the code above in your browser using DataLab