if (FALSE) {
set.seed(42)
menages <- data.frame(
depense_pc = c(rexp(70, 1/150000), rexp(30, 1/400000)),
poids = runif(100, 0.8, 1.2),
milieu = sample(c("urbain", "rural"), 100, TRUE, c(0.4, 0.6))
)
fgt <- calcul_fgt(menages, "depense_pc", 220000,
poids = "poids", sous_groupes = "milieu")
graphique_fgt(fgt, type = "barres", variable = "milieu")
}
Run the code above in your browser using DataLab