set.seed(42)
n <- 500
individus <- data.frame(
conf_gouv = rbinom(n, 1, 0.35),
conf_just = rbinom(n, 1, 0.42),
conf_pol = rbinom(n, 1, 0.38),
milieu = sample(c("urbain","rural"), n, TRUE),
poids = runif(n, 0.8, 1.3)
)
confiance_institutions(individus,
vars_institutions = c(Gouvernement="conf_gouv",
Justice="conf_just",
Police="conf_pol"),
poids="poids", sous_groupes="milieu")
Run the code above in your browser using DataLab