adiv (version 1.2)

distinctDis: Dissimilarity-based Species' Originality

Description

The function calculates three indices of species' originality.

Usage

distinctDis(dis, method = 1:3, standardized = FALSE)

Arguments

dis

an object of class dist containing pair-wise (functional or phylogenetic) dissimilarities between species.

method

a numeric or a vector of numerics. Possible values are 1, 2 and 3. 1 is for Pavoine et al. (2017) index Rb; 2 is for AV, the average dissimilarity between a species and all others in a set (Eiswerth and Haney 1992; Ricotta 2004); 3 is for FV, the average dissimilarity between a species and any other (including the focal species itself) (Schmera et al. 2009).

standardized

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

Value

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

References

Eiswerth, M.E. and Haney, J.C. (1992) Allocating conservation expenditures: accounting for inter-species genetic distinctiveness. Ecological Economics, 5, 235--249.

Ricotta, C. (2004) A parametric diversity measure combining the relative abundances and taxonomic distinctiveness of species. Diversity and Distributions, 10, 143--146.

Schmera, D., Podani, J., Eros, T. (2009) Measuring the contribution of community members to functional diversity. Oikos, 118, 961--971.

Pavoine, S., Bonsall, M.B., Dupaix, A., Jacob, U., Ricotta, C. (2017) From phylogenetic to functional originality: guide through indices and new developments. Ecological Indicators, 82, 196--205.

See Also

See Also distinctTopo, distinctTree, distinctUltra

Examples

# NOT RUN {
e <- rlnorm(10)
e <- sort(e)
names(e) <- paste("s", 1:10, sep="")
d <- dist(e)
barplot(e)

D <- distinctDis(d, standardized = TRUE)

par(mfrow=c(3,1))
plot(e, D[,1], xlab="trait", ylab="Rb")
plot(e, D[,2], xlab="trait", ylab="AV")
plot(e, D[,3], xlab="trait", ylab="FV")

plot(D[,1], D[,2], xlab="Rb", ylab="AV")
plot(D[,1], D[,3], xlab="Rb", ylab="FV")
plot(D[,2], D[,3], xlab="AV", ylab="FV")
par(mfrow=c(1,1))
# }