set.seed(42)
n <- 400
menages <- data.frame(
econ_ok = rbinom(n, 1, 0.38),
quintile = sample(paste0("Q", 1:5), n, TRUE),
poids = runif(n, 0.8, 1.3)
)
perception_economique(menages, "econ_ok", poids="poids",
sous_groupes="quintile")
Run the code above in your browser using DataLab