set.seed(42)
n <- 300
donnees <- data.frame(
poids_sond = runif(n, 1800, 3500),
strate = sample(c("Urbain","Rural"), n, TRUE),
grappe = sample(1:20, n, TRUE),
repondu = rbinom(n, 1, 0.88),
pauvre = rbinom(n, 1, 0.45)
)
design <- suppressMessages(
creer_design(donnees,"poids_sond",var_strate="strate",var_grappe="grappe"))
rapport_qualite_sondage(design, variables="pauvre",
var_reponse="repondu",
pays="RCA", annee=2026L)
Run the code above in your browser using DataLab