Initial commit

2026-05-06 16:45:30 +02:00
parent 57cd2873d5
commit 0aa817abf0
333 changed files with 43173 additions and 2 deletions
@@ -0,0 +1,17 @@
+# Exo2 Exemple de 1000 simulations du jet d'un dé à 6 faces équilibrées pour estimer la probabilité d'obtenir laface "4".
+set.seed(123) # pour que les résultats soient reproductibles
+# Nombre de simulations
+n <- 1000
+# Simulation des lancers (1 à 6)
+jets <- sample(1:6, size = n, replace = TRUE)
+# Estimation de la probabilité d'obtenir un "4"
+prob_4 <- mean(jets == 4)
+# Affichage du résultat
+cat("Probabilité estimée d'obtenir la face 4 :", prob_4, "\n")
+# Histogramme des résultats
+hist(jets,
+     breaks = 0.5:6.5, # pour centrer les barres sur les faces
+     col = "lightgreen",
+     main = "Histogramme des lancers de dé",
+     xlab = "Face du dé",
+     ylab = "Fréquence")