set.seed(42)
n <- 400
femmes <- data.frame(
dec_achat = rbinom(n, 1, 0.55),
dec_sante = rbinom(n, 1, 0.48),
compte_ban = rbinom(n, 1, 0.32),
rev_propre = rbinom(n, 1, 0.41),
libre_dep = rbinom(n, 1, 0.62),
milieu = sample(c("urbain","rural"), n, TRUE),
poids = runif(n, 0.8, 1.3)
)
autonomisation_femmes(femmes,
vars_decision = c("dec_achat","dec_sante"),
vars_ressources = c("compte_ban","rev_propre"),
vars_mobilite = c("libre_dep"),
poids = "poids", sous_groupes = "milieu")
Run the code above in your browser using DataLab