set.seed(42)
n <- 300
donnees <- data.frame(
poids_sond = runif(n, 1800, 3500),
strate = sample(c("Urbain","Rural","Semi-urbain"), n, TRUE),
grappe = sample(1:30, n, TRUE),
revenu = pmax(0, rnorm(n, 180000, 90000)),
pauvre = rbinom(n, 1, 0.45)
)
design <- creer_design(donnees, "poids_sond",
var_strate="strate", var_grappe="grappe")
print(design)
Run the code above in your browser using DataLab