Initial commit

UE2.11_Mathematiques/26-03-31/exoR3.r

@@ -0,0 +1,21 @@
+#Exo3 Simuler la somme des valeurs des faces obtenues en lançant 2 dés à 6 faces équilibrées
+set.seed(123) # pour la reproductibilité
+# Nombre de simulations
+n <- 1000
+# Simulation des deux dés
+de1 <- sample(1:6, size = n, replace = TRUE)
+de2 <- sample(1:6, size = n, replace = TRUE)
+# Somme des deux dés
+somme <- de1 + de2
+# Affichage des premières valeurs pour vérifier
+head(somme)
+# Estimation de la fréquence de chaque somme possible (2 à 12)
+table(somme) / n
+# Histogramme des sommes
+hist(somme,
+     breaks = seq(1.5, 12.5, by = 1),
+     col = "lightblue",
+     main = "Histogramme des sommes de 2 dés",
+     xlab = "Somme",
+     ylab = "Fréquence")
+