set.seed(42)
n <- 600
enfants <- data.frame(
travail = rbinom(n, 1, 0.22),
age = sample(5:17, n, TRUE),
sexe = sample(c("H","F"), n, TRUE),
milieu = sample(c("urbain","rural"), n, TRUE),
poids = runif(n, 0.8, 1.3)
)
travail_enfants(enfants, "travail", var_age="age",
poids="poids", sous_groupes=c("sexe","milieu"))
Run the code above in your browser using DataLab