powered by
Atkinson(x, n = rep(1, length(x)), parameter = 0.5, na.rm = FALSE)
NULL
Cowell, F. A. (1995) Measuring Inequality Harvester Wheatshef: Prentice Hall.
Marshall, Olkin (1979) Inequalities: Theory of Majorization and Its Applications. New York: Academic Press.
Herfindahl
Rosenbluth
ineq()
# generate vector (of incomes) x <- c(541, 1463, 2445, 3438, 4437, 5401, 6392, 8304, 11904, 22261) # compute Atkinson coefficient with parameter=0.5 Atkinson(x, parameter=0.5)
Run the code above in your browser using DataLab