set.seed(42)
n <- 500
individus <- data.frame(
chomeur = rbinom(n, 1, 0.14),
sous_emploi_t = rbinom(n, 1, 0.08),
actif_potentiel = rbinom(n, 1, 0.05),
poids = runif(n, 0.8, 1.3)
)
taux_sous_utilisation(individus, "chomeur",
var_sous_emploi_t = "sous_emploi_t",
var_actif_potentiel = "actif_potentiel",
poids = "poids")
Run the code above in your browser using DataLab