set.seed(42)
n <- 600
femmes <- data.frame(
naissances_vivantes = rpois(n, 3.5),
deces_enfants = rbinom(n, 4, 0.08),
milieu = sample(c("urbain","rural"), n, TRUE),
poids = runif(n, 0.8, 1.3)
)
mortalite_5ans(femmes,
var_naissances_vivantes = "naissances_vivantes",
var_deces_enfants = "deces_enfants",
poids = "poids")
Run the code above in your browser using DataLab