set.seed(42)
n <- 400
femmes <- data.frame(
marie_18 = rbinom(n, 1, 0.42),
vbg_phys = rbinom(n, 1, 0.28),
poids = runif(n, 0.8, 1.3)
)
rm <- suppressMessages(
mariage_precoce(femmes, "marie_18", poids="poids"))
rvbg <- violence_basee_genre(femmes,
var_violence_physique="vbg_phys", poids="poids")
tableau_genre(list(mariage=rm, vbg=rvbg), pays="RCA", annee=2026L)
Run the code above in your browser using DataLab