set.seed(42)
n <- 500
individus <- data.frame(
stress = rbinom(n, 1, 0.38),
anxiete = rbinom(n, 1, 0.28),
isolement = rbinom(n, 1, 0.22),
sexe = sample(c("H","F"), n, TRUE),
poids = runif(n, 0.8, 1.3)
)
sante_mentale(individus, var_stress="stress",
var_anxiete="anxiete", var_isolement="isolement",
poids="poids", sous_groupes="sexe")
Run the code above in your browser using DataLab