distinctTree {adiv}R Documentation

Tree-based Species' Originality


The function calculates indices of species' originality that rely on the structure and branch lengths of (phylogenetic) trees. Trees with polytomies are allowed.


distinctTree(phyl, method = c("ED", "ES", "Delta*"), palpha = 0, standardized = FALSE)



an object inheriting the class phylo (see package ape), phylo4 (see package phylobase) or hclust.


a string or a vector of strings. Possible values are "ED", "ES", and "Delta*". "ED" is for the evolutionary distinctiveness, also named fair-proportion, index (Redding 2003; Isaac et al. 2007); "ES" is for the Equal-Splits index (Redding and Mooers 2006); "Delta*" is for the parametric ^{α}Δ index of Pavoine and Ricotta (2021).


a numeric value or a numeric vector of values for parameter α of ^{α}Δ index by Pavoine and Ricotta (2021).


a logical. If TRUE, the vector of originalities is divided by its sum (transforming absolute originalities into relative originalities).


A data frame with species as rows and originality indices as columns.


Sandrine Pavoine sandrine.pavoine@mnhn.fr


Isaac, N.J., Turvey, S.T., Collen, B., Waterman, C., Baillie, J.E. (2007) Mammals on the EDGE: conservation priorities based on threat and phylogeny. PloS ONE, 2, e296.

Pavoine, S., Ricotta, C. (2021) On the relationships between rarity, uniqueness, distinctiveness, originality and functional/phylogenetic diversity. BiorXiv. doi: 10.1101/2021.08.09.455640

Redding, D.W. (2003) Incorporating genetic distinctness and reserve occupancy into a conservation priorisation approach. Master thesis: University of East Anglia, Norwich.

Redding, D.W., Mooers, A.O. (2006) Incorporating evolutionary measures into conservation prioritization. Conservation Biology, 20, 1670–1678.

See Also

distinctDis, distinctTopo, distinctUltra


## Not run: 
if(require(ape) && require(adephylo) && require(phylobase)){
data(carni70, package = "adephylo")
tre <- read.tree(text=carni70$tre)
U <- distinctTree(tre, standardize = TRUE)
U.4d <- phylo4d(tre, as.matrix(U))
dotp4d(U.4d, center = FALSE, scale = FALSE)
barp4d(U.4d, center = FALSE, scale = FALSE)
gridp4d(U.4d, center = FALSE, scale = FALSE)

parmar <- par()$mar
table.phylo4d(U.4d, show.node=FALSE, symbol="squares", center=FALSE, scale=FALSE, cex.symbol=2)

## End(Not run)

[Package adiv version 2.1.1 Index]