set.seed(42)
n <- 500
individus <- data.frame(
employe = rbinom(n, 1, 0.60),
revenu = pmax(10000, rnorm(n, 180000, 90000)),
milieu = sample(c("urbain","rural"), n, TRUE),
poids = runif(n, 0.8, 1.3)
)
pauvrete_travail(individus, "employe", "revenu",
seuil = 144800, poids = "poids")
Run the code above in your browser using DataLab