set.seed(42)
n <- 500
femmes <- data.frame(
vbg_phys = rbinom(n, 1, 0.28),
vbg_sex = rbinom(n, 1, 0.18),
vbg_psycho = rbinom(n, 1, 0.35),
milieu = sample(c("urbain","rural"), n, TRUE),
poids = runif(n, 0.8, 1.3)
)
violence_basee_genre(femmes,
var_violence_physique = "vbg_phys",
var_violence_sexuelle = "vbg_sex",
var_violence_psycho = "vbg_psycho",
poids = "poids", sous_groupes = "milieu")
Run the code above in your browser using DataLab