set.seed(42)
individus <- data.frame(
employe = rbinom(500, 1, 0.55),
age = sample(15:64, 500, TRUE),
sexe = sample(c("H","F"), 500, TRUE),
poids = runif(500, 0.8, 1.3)
)
taux_emploi(individus, "employe", var_age="age",
poids="poids", sous_groupes="sexe")
Run the code above in your browser using DataLab