powered by
rosenbluth(x, n = rep(1, length(x)), na.rm = FALSE, ...)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
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