set.seed(42)
menages <- data.frame(
depense_pc = c(rexp(70, rate = 1/150000), rexp(30, rate = 1/400000)),
poids = runif(100, 0.8, 1.2),
milieu = sample(c("urbain", "rural"), 100, TRUE, prob = c(0.4, 0.6))
)
fgt <- calcul_fgt(menages, "depense_pc", 220000,
poids = "poids", sous_groupes = "milieu")
decomposer_fgt(fgt, "milieu", alpha_cible = 0)
Run the code above in your browser using DataLab