Computes an Atkinson measure of inequality within a vector.

1 | ```
calcAtkinson(x, w = NULL, epsilon = 1)
``` |

`x` |
Numeric vector with non-negative values (strictly positive
when |

`w` |
Numeric vector of sampling weigths (optional) |

`epsilon` |
Parameter of the Atkinson index (must be strictly positive) |

A list of class `"ICI"`

with components:

`ineq` |
a list with components |

`nas` |
a list with NA counts, including components |

Atkinson A.B. (1970) On the Measurement of Inequality. *Journal of
Economic Theory*, 2, pp. 244-263.

`decompAtkinson`

1 2 3 4 5 | ```
data(hhbudgets)
calcAtkinson(hhbudgets[, "ingreso"], epsilon=3)
summary(hhbudgets[, "transporte"])
calcAtkinson(hhbudgets[,"transporte"], w=hhbudgets[,"factor"])
``` |

Questions? Problems? Suggestions? Tweet to @rdrrHQ or email at ian@mutexlabs.com.

All documentation is copyright its authors; we didn't write any of that.