data(otumothur)
subotus <- subOTU(otutab = otumothur, taxhead = "taxonomy", siteInCol = TRUE,
percent = FALSE, choose = "rare", outype = "counts", sort = FALSE)
pRare <- pbray(allComm = t(otumothur[,-454]), subComm = t(subotus[,-454]))
class(pRare)
# convert to long format data frame
longdist <- matrixConvert(pRare, colname = c("sp1", "sp2", "bray"))
Run the code above in your browser using DataLab