set.seed(42)
n <- 300
menages <- data.frame(
nutrition = rbinom(n, 1, 0.35),
electricite = rbinom(n, 1, 0.60),
eau = rbinom(n, 1, 0.40),
milieu = sample(c("urbain","rural"), n, TRUE),
poids = runif(n, 0.8, 1.3)
)
res <- calcul_ipm(menages,
var_nutrition = "nutrition", var_electricite = "electricite",
var_eau = "eau", poids = "poids")
decomposer_ipm(res, menages, var_groupe = "milieu", poids = "poids")
Run the code above in your browser using DataLab