set.seed(42)
n <- 400
employes <- data.frame(
vulnerable = rbinom(n, 1, 0.55),
sexe = sample(c("H","F"), n, TRUE),
poids = runif(n, 0.8, 1.3)
)
emploi_vulnerable(employes, "vulnerable", poids="poids",
sous_groupes="sexe")
Run the code above in your browser using DataLab