set.seed(42)
menages <- data.frame(
depense = c(rexp(200, 1/150000), rexp(100, 1/500000)),
milieu = sample(c("urbain","rural"), 300, TRUE),
poids = runif(300, 0.8, 1.3)
)
tableau_inegalites(menages, "depense", poids="poids",
var_groupe="milieu", pays="Centrafrique",
annee=2026L)
Run the code above in your browser using DataLab