set.seed(42)
n <- 500
femmes <- data.frame(
marie_18 = rbinom(n, 1, 0.42),
cohorte = sample(c("15-19","20-24","25-29","30-34","35-49"),
n, TRUE),
milieu = sample(c("urbain","rural"), n, TRUE),
poids = runif(n, 0.8, 1.3)
)
mariage_precoce(femmes, "marie_18",
var_cohorte = "cohorte",
poids = "poids", sous_groupes = "milieu")
Run the code above in your browser using DataLab