set.seed(42)
n <- 400
individus <- data.frame(
retraite = rbinom(n, 1, 0.18),
assur_maladie = rbinom(n, 1, 0.22),
allocations = rbinom(n, 1, 0.12),
poids = runif(n, 0.8, 1.3)
)
protection_sociale(individus,
vars_protection = c(Retraite="retraite",
Assurance_maladie="assur_maladie",
Allocations="allocations"),
poids = "poids")
Run the code above in your browser using DataLab