Merci pour ces pistes, j'ai réussi : set.seed(13) dn <- expand.grid(id=1,Fortune=c("Riche","Pauvre"),Diamant=c("Oui","Non")) dn <- dn[rep(1:4,times=c(50,5,10,100)),] n <- nrow(dn) dn$id <- 1:n dn$Peste <- round(runif(n,0,ifelse(dn$Fortune=="Riche",10...