weighted.atkinson {acid} | R Documentation |

## Atkinson Inequality Index

### 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

### 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)
```

[Package

*acid*version 1.1 Index]