weighted.gini {acid}

Gini Coefficient

Description

This function computes the Gini coefficient for a vector of observations with corresponding weights.

Usage

weighted.gini(x, w = NULL)

Arguments

x

a vector of observations.

w

a vector of weights.

Value

returns the Gini coefficient.

Author(s)

Alexander Sohn

References

Cowell, F.A. (2000): Measurement of Inequality, in: Atkinson and Bourguignon (eds.), Handbook of Income Distribution, pp. 1-86, Elsevier, Amsterdam.

See Also

ineq

Examples

# generate vector (of incomes)
x <- c(541, 1463, 2445, 3438, 4437, 5401, 6392, 8304, 11904, 22261)
w <- sample(1:2,length(x),replace=TRUE)
weighted.gini(x,w)