R/unifracpd.R

Defines functions unifracpd

unifracpd<-function(data, phylo) {
	util.pd <- beta.pd.utils(data,phylo)
	betadiv <- betajac.pd(util.pd)
	results=NULL 
	results <- dist.mat(data,betadiv[,3])
	names(results)<- colnames(betadiv)[3]
	results
}
leondap/recluster documentation built on Nov. 11, 2024, 7:11 a.m.