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)
)
fgt <- calcul_fgt(menages, "depense_pc", 220000, poids = "poids")
tableau_fgt(fgt)
Run the code above in your browser using DataLab