set.seed(42)
n <- 400
naissances <- data.frame(
assiste = rbinom(n, 1, 0.65),
milieu = sample(c("urbain","rural"), n, TRUE),
region = sample(paste0("R", 1:5), n, TRUE),
poids = runif(n, 0.8, 1.3)
)
accouchements_assistes(naissances, "assiste",
poids = "poids",
sous_groupes = c("milieu","region"))
Run the code above in your browser using DataLab