set.seed(42)
n <- 500
individus <- data.frame(
hand_vis = rbinom(n, 1, 0.04),
hand_aud = rbinom(n, 1, 0.03),
hand_mot = rbinom(n, 1, 0.05),
sexe = sample(c("H","F"), n, TRUE),
poids = runif(n, 0.8, 1.3)
)
handicap_prevalence(individus,
vars_handicap = c(Visuel="hand_vis", Auditif="hand_aud",
Moteur="hand_mot"),
poids = "poids")
Run the code above in your browser using DataLab