set.seed(42)
n <- 400
donnees <- data.frame(
repondu = rbinom(n, 1, 0.88),
strate = sample(c("Urbain","Rural"), n, TRUE),
age_cm = sample(25:65, n, TRUE),
taille_men = sample(3:10, n, TRUE)
)
analyser_non_reponse(donnees, "repondu",
var_strate = "strate",
vars_biais = c("age_cm","taille_men"))
Run the code above in your browser using DataLab