powered by
atkinson(x, n = rep(1, length(x)), parameter = 0.5, na.rm = FALSE, ...)atkinson(x, n = rep(1, length(x)), parameter = 0.5, na.rm = FALSE, ...)
atkinson(x, n = rep(1, length(x)), parameter = 0.5, na.rm = FALSE, ...)
x
NULL
na.rm=FALSE
Cowell, F. A. (1995) Measuring Inequality Harvester Wheatshef: Prentice Hall.
herfindahl
rosenbluth
gini
vignette("Indices", package = "SciencesPo")
if (interactive()) { # generate a vector (of incomes) x <- c(778, 815, 857, 888, 925, 930, 965, 990, 1012) # compute Atkinson coefficient with parameter=0.5 atkinson(x, parameter=0.5) }
Run the code above in your browser using DataLab