# Relation entre le nombre d'élèves d'une classe et la fréquence # d'apparition d'au moins deux jours anniversaire identiques situ3graf1 <- function (nbsim = 10^4, nbelev = 30){ seriefreqsucces <- NULL for (cpt4 in 2:nbelev) { succes <- 0 for (cpt1 in 1:nbsim) { journaissance <- sample(1:365, cpt4, replace = TRUE) if (length(journaissance) != length(unique(journaissance))) { succes <- succes + 1 } } seriefreqsucces <- c(seriefreqsucces, succes / nbsim) } plot(2:nbelev, seriefreqsucces, pch = 21, bg = "red", xaxp = c(2, nbelev, nbelev - 2), main = "Relation entre taille de classe et fréquence d'occurence d'au moins deux jours anniversaires identiques", xlab = "Nombre d'élèves", ylab = "Fréquence simulée") grid(col = "grey30") }