set.seed(42)
n <- 400
menages <- data.frame(
manque_nour = rbinom(n, 1, 0.48),
manque_eau = rbinom(n, 1, 0.35),
manque_med = rbinom(n, 1, 0.58),
manque_arg = rbinom(n, 1, 0.62),
milieu = sample(c("urbain","rural"), n, TRUE),
poids = runif(n, 0.8, 1.3)
)
privations_ressenties(menages,
vars_privations = c(Nourriture="manque_nour",
Eau="manque_eau",
Medicaments="manque_med",
Argent="manque_arg"),
poids="poids", sous_groupes="milieu")
Run the code above in your browser using DataLab