weighted.atkinson: Atkinson Inequality Index

In acid: Analysing Conditional Income Distributions

Description

This function computes the Atkinson inequality index for a vector of observations with corresponding weights.

Usage

weighted.atkinson(x, w = NULL, epsilon = 1, wscale = 1000)

Arguments

x	a vector of observations.
w	a vector of weights. If
epsilon	inequality aversion parameter as denoted by Atkinson (1970). The default is epsilon=1.
wscale	a scale by which the weights are adjusted such that can be rounded to natural numbers.

Value

returns the selected Atkinson inequality index.

Author(s)

Alexander Sohn

References

Atkinson, A.B. (1970): On the Measurment of Inequality, in: Journal of Economic Theory, Vol. 2(3), pp. 244-263.

See Also

ineq

Examples

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

Example output

Loading required package: gamlss
Loading required package: splines
Loading required package: gamlss.data

Attaching package: 'gamlss.data'

The following object is masked from 'package:datasets':

    sleep

Loading required package: gamlss.dist
Loading required package: MASS
Loading required package: nlme
Loading required package: parallel
 **********   GAMLSS Version 5.1-3  ********** 
For more on GAMLSS look at http://www.gamlss.org/
Type gamlssNews() to see new features/changes/bug fixes.

Loading required package: Hmisc
Loading required package: lattice
Loading required package: survival
Loading required package: Formula
Loading required package: ggplot2

Attaching package: 'Hmisc'

The following objects are masked from 'package:base':

    format.pval, units

[1] 0.3753929

acid documentation built on May 1, 2019, 10:14 p.m.