R/phylosort.R

In recluster: Ordination Methods for the Analysis of Beta-Diversity Indices

phylosort<-function(data, phylo) {
util.pd <- beta.pd.utils(data,phylo)
betadiv <- betasor.pd(util.pd)
results=NULL 
      results <- dist.mat(data,betadiv[,2])
      names(results)<- colnames(betadiv)[2]
      results<-results
}