Description Usage Arguments Details Value Author(s) References See Also Examples

The contribution diversity approach is based in the differentiation of within-unit and among-unit diversity by using additive diversity partitioning and unit distinctiveness.

1 2 3 4 |

`comm` |
The community data matrix with samples as rows and species as column. |

`index` |
Character, the diversity index to be calculated. |

`relative` |
Logical, if |

`scaled` |
Logical, if |

`drop.zero` |
Logical, should empty rows dropped from the result?
If empty rows are not dropped, their corresponding results will be |

`x` |
An object of class |

`sub, xlab, ylab, ylim, col` |
Graphical arguments passed to plot. |

`...` |
Other arguments passed to plot. |

This approach was proposed by Lu et al. (2007).
Additive diversity partitioning (see `adipart`

for more references)
deals with the relation of mean alpha and the total (gamma) diversity. Although
alpha diversity values often vary considerably. Thus, contributions of the sites
to the total diversity are uneven. This site specific contribution is measured by
contribution diversity components. A unit that has e.g. many unique species will
contribute more to the higher level (gamma) diversity than another unit with the
same number of species, but all of which common.

Distinctiveness of species *j* can be defined as the number of sites where it
occurs (*n_j*), or the sum of its relative frequencies (*p_j*). Relative
frequencies are computed sitewise and *sum_j{p_ij}*s at site *i* sum up
to *1*.

The contribution of site *i* to the total diversity is given by
*alpha_i = sum_j(1 / n_ij)* when dealing with richness and
*alpha_i = sum(p_{ij} * (1 - p_{ij}))* for the Simpson index.

The unit distinctiveness of site *i* is the average of the species
distinctiveness, averaging only those species which occur at site *i*.
For species richness: *alpha_i = mean(n_i)* (in the paper, the second
equation contains a typo, *n* is without index). For the Simpson index:
*alpha_i = mean(n_i)*.

The Lu et al. (2007) gives an in-depth description of the different indices.

An object of class `"contribdiv"`

in heriting from data frame.

Returned values are alpha, beta and gamma components for each sites (rows)
of the community matrix. The `"diff.coef"`

attribute gives the
differentiation coefficient (see Examples).

Péter Sólymos, solymos@ualberta.ca

Lu, H. P., Wagner, H. H. and Chen, X. Y. 2007. A contribution diversity
approach to evaluate species diversity.
*Basic and Applied Ecology*, 8, 1–12.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | ```
## Artificial example given in
## Table 2 in Lu et al. 2007
x <- matrix(c(
1/3,1/3,1/3,0,0,0,
0,0,1/3,1/3,1/3,0,
0,0,0,1/3,1/3,1/3),
3, 6, byrow = TRUE,
dimnames = list(LETTERS[1:3],letters[1:6]))
x
## Compare results with Table 2
contribdiv(x, "richness")
contribdiv(x, "simpson")
## Relative contribution (C values), compare with Table 2
(cd1 <- contribdiv(x, "richness", relative = TRUE, scaled = FALSE))
(cd2 <- contribdiv(x, "simpson", relative = TRUE, scaled = FALSE))
## Differentiation coefficients
attr(cd1, "diff.coef") # D_ST
attr(cd2, "diff.coef") # D_DT
## BCI data set
data(BCI)
opar <- par(mfrow=c(2,2))
plot(contribdiv(BCI, "richness"), main = "Absolute")
plot(contribdiv(BCI, "richness", relative = TRUE), main = "Relative")
plot(contribdiv(BCI, "simpson"))
plot(contribdiv(BCI, "simpson", relative = TRUE))
par(opar)
``` |

```
Loading required package: permute
Loading required package: lattice
This is vegan 2.5-3
a b c d e f
A 0.3333333 0.3333333 0.3333333 0.0000000 0.0000000 0.0000000
B 0.0000000 0.0000000 0.3333333 0.3333333 0.3333333 0.0000000
C 0.0000000 0.0000000 0.0000000 0.3333333 0.3333333 0.3333333
alpha beta gamma
A 1 1.5 2.5
B 1 0.5 1.5
C 1 1.0 2.0
alpha beta gamma
A 0.6666667 0.1851852 0.8518519
B 0.6666667 0.1111111 0.7777778
C 0.6666667 0.1481481 0.8148148
alpha beta gamma
A 0 0.5 0.5
B 0 -0.5 -0.5
C 0 0.0 0.0
alpha beta gamma
A 0 0.03703704 0.03703704
B 0 -0.03703704 -0.03703704
C 0 0.00000000 0.00000000
[1] 0.5
[1] 0.1818182
```

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.