The function dislptransport
calculates the DKG measure of dissimilarity (Kosman 1996; Gregorius et al. 2003) applied here to functional differences between plots (eq. 3 in Ricotta et al. 2021).
dislptransport(comm, dis, diag = FALSE, upper = FALSE, Nind = 10000)
The function dislptransport
returns an object of class dist
matrix with the values of the dissimilarity index DKG (Ricotta et al. 2021) for each pair of plots.
a matrix containing the relative or absolute abundance of all species in plots. Columns are species and plots are rows. Column labels (species names) should be assigned as in dis
.
a matrix or an object of class dist providing the functional dissimilarities between species (dissimilarities are nonnegative, symmetric, and the dissimilarity between a species and itself is zero). Species here must be in the same order as in the columns of comm.
logical value indicating whether the diagonal of the dissimilarity matrix should be printed by print.dist
.
logical value indicating whether the upper triangle of the distance matrix should be printed by print.dist
.
an integer. The algorithmic index will be applied by assuming that each plot contains Nind
individuals. The highest Nind
, the most precise the index value will be (see Gregorius et al. 2003, for more details).
Sandrine Pavoine sandrine.pavoine@mnhn.fr
Ricotta, C., Kosman, E., Laroche, F., Pavoine, S. (2021) Beta redundancy for functional ecology. Methods in Ecology and Evolution, 12, 1062--1069. tools:::Rd_expr_doi("10.1111/2041-210X.13587")
Gregorius, H.-R., Gillet, E.M., Ziehe, M. (2003) Measuring differences of trait distributions between populations. Biometrical Journal, 8, 959--973. tools:::Rd_expr_doi("10.1002/bimj.200390063")
Kosman, E. (1996) Difference and diversity of plant pathogen populations: a new approach for measuring. Phytopathology, 86, 1152--1155.
betaUniqueness
for plot-to-plot functional (or phylogenetic) uniqueness indices.
if (FALSE) {
data(RutorGlacier)
fundis <- dist(scale(RutorGlacier$Traits2[1:6]))
fundis <- fundis/max(fundis)
DKG <- dislptransport(RutorGlacier$Abund, fundis)
}
Run the code above in your browser using DataLab