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),
sexe = sample(c("H","F"), n, TRUE),
milieu = sample(c("urbain","rural"), n, TRUE)
)
design <- suppressMessages(
creer_design(donnees,"poids_sond",var_strate="strate",var_grappe="grappe"))
marges <- list(
sexe = c(H=500000, F=550000),
milieu = c(urbain=600000, rural=450000)
)
calibrer_poids(design, marges, var_calibrage=c("sexe","milieu"))
Run the code above in your browser using DataLab