set.seed(42)
n <- 2000
individus <- data.frame(
age = sample(0:79, n, TRUE),
sexe = sample(c("H","F"), n, TRUE, prob=c(0.49,0.51)),
poids = runif(n, 0.8, 1.3)
)
ratio_masculinite(individus, "age", "sexe", poids="poids")
Run the code above in your browser using DataLab