set.seed(42)
n <- 400
femmes <- data.frame(
hemoglobine = rnorm(n, 11.5, 2.1),
milieu = sample(c("urbain","rural"), n, TRUE),
poids = runif(n, 0.8, 1.3)
)
anemie(femmes, var_hemoglobine = "hemoglobine", poids = "poids")
Run the code above in your browser using DataLab