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