set.seed(42)
n <- 400
employes <- data.frame(
heures_trav = pmax(0, rnorm(n, 38, 15)),
disponible = rbinom(n, 1, 0.3),
poids = runif(n, 0.8, 1.3)
)
sous_emploi_temps(employes, "heures_trav",
seuil_heures = 35L, poids = "poids")
Run the code above in your browser using DataLab