powered by
Rosenbluth(x, n = rep(1, length(x)), na.rm = FALSE, ...) "Rosenbluth"(x, n = rep(1, length(x)), na.rm = FALSE, ...)
x
na.rm=FALSE
Cowell, F. A. (1995) Measuring Inequality Harvester Wheatshef: Prentice Hall.
Atkinson
Herfindahl
Gini
Lorenz
vignette("Indices", package = "SciencesPo")
# generate a vector (of incomes) x <- c(778, 815, 857, 888, 925, 930, 965, 990, 1012) # compute Rosenbluth coefficient Rosenbluth(x)
Run the code above in your browser using DataLab