set.seed(42)
n <- 2000
ages_base <- sample(10:79, n, TRUE)
ages <- ifelse(runif(n) < 0.15, ages_base - ages_base%%5, ages_base)
individus <- data.frame(
age = ages,
sexe = sample(c("H","F"), n, TRUE),
poids = runif(n, 0.8, 1.3)
)
rapport_qualite_demo(individus, "age", var_sexe="sexe",
poids="poids", pays="RCA", annee=2024L)
Run the code above in your browser using DataLab