set.seed(42)
n <- 400
individus <- data.frame(
securise = rbinom(n, 1, 0.52),
sexe = sample(c("H","F"), n, TRUE),
milieu = sample(c("urbain","rural"), n, TRUE),
poids = runif(n, 0.8, 1.3)
)
sentiment_securite(individus, "securise", poids="poids",
sous_groupes=c("sexe","milieu"))
Run the code above in your browser using DataLab