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)
)
decomposer_theil(menages, "depense", "milieu", poids = "poids")
Run the code above in your browser using DataLab