set.seed(42)
n <- 400
enfants <- data.frame(
haz = rnorm(n,-1.2,1.3), waz = rnorm(n,-1.0,1.2),
poids = runif(n,0.8,1.3)
)
r1 <- suppressMessages(
retard_croissance(enfants, var_taille_age_z="haz", poids="poids"))
r2 <- suppressMessages(
insuffisance_ponderale(enfants, var_poids_age_z="waz", poids="poids"))
tableau_sante(list(stunting=r1, underweight=r2),
pays="Centrafrique", annee=2026L)
Run the code above in your browser using DataLab