Calculate the Gini Coefficient

Description

This function calculates the Gini coefficient on raw or detrended ring-width series.

Usage

1
gini.coef(x)

Arguments

x

a numeric vector

Details

This calculates the Gini coefficient of inequality which is used as an all-lag measure of diversity in tree-ring records – typically detrended series. Lower values indicate lower diversity. The use of the Gini coefficient in dendrochronology is described by Biondi and Qeadan (2008). See Handcock and Morris (1999) for more information. See ‘Examples’ for a pointer to a PDF document including mathematical details about the function.

Value

the Gini coefficient.

Author(s)

Mikko Korpela, based on original by Andy Bunn

References

Biondi, F. and Qeadan, F. (2008) Inequality in Paleorecords. Ecology, 89(4), 1056–1067.

Handcock, M. S. and Morris, M. (1999) Relative Distribution Methods in the Social Sciences. Springer. ISBN: 0-387-98778-9.

See Also

rwl.stats

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
docFile <- system.file("doc", "math-dplR.pdf", package="dplR")
cat("See the following PDF for mathematical details:\n")
cat(docFile, sep="\n")
## Not run: 
if (interactive() && requireNamespace("Biobase")) {
    Biobase::openPDF(docFile)
}
## End(Not run)
library(utils)
data(ca533)
ca533.rwi <- detrend(rwl = ca533, method = "ModNegExp")
ca533.crn <- chron(ca533.rwi, prefix = "CAM")
gini.coef(ca533.crn)

Want to suggest features or report bugs for rdrr.io? Use the GitHub issue tracker.