set.seed(42)
n <- 500
enfants <- data.frame(
haz = rnorm(n, -1.2, 1.3),
milieu = sample(c("urbain","rural"), n, TRUE),
poids = runif(n, 0.7, 1.4)
)
retard_croissance(enfants, var_taille_age_z = "haz", poids = "poids")
Run the code above in your browser using DataLab