set.seed(42)
n <- 500
enfants <- data.frame(
dtc3 = rbinom(n, 1, 0.72),
rougeole = rbinom(n, 1, 0.68),
polio3 = rbinom(n, 1, 0.75),
bcg = rbinom(n, 1, 0.90),
poids = runif(n, 0.8, 1.3),
milieu = sample(c("urbain","rural"), n, TRUE)
)
vaccination(enfants,
vars_vaccins = c(DTC3="dtc3", Rougeole="rougeole",
Polio3="polio3", BCG="bcg"),
poids = "poids")
Run the code above in your browser using DataLab