set.seed(42)
menages <- data.frame(
depense = c(rexp(150, 1/150000), rexp(50, 1/500000)),
milieu = sample(c("urbain","rural"), 200, TRUE),
poids = runif(200, 0.8, 1.3)
)
courbe_lorenz(menages, "depense", poids = "poids")
Run the code above in your browser using DataLab