set.seed(42)
n <- 400
individus <- data.frame(
satisf = pmin(10,pmax(0,round(rnorm(n,5.8,2.1)))),
bonheur = rbinom(n,1,0.62),
securise = rbinom(n,1,0.52),
poids = runif(n,0.8,1.3)
)
r1 <- suppressMessages(
satisfaction_vie(individus,"satisf",poids="poids"))
r2 <- suppressMessages(
sentiment_securite(individus,"securise",poids="poids"))
tableau_bien_etre_subjectif(list(satisfaction=r1, securite=r2),
pays="RCA", annee=2026L)
Run the code above in your browser using DataLab