Probabilité de gagner la mise « pass line »
Nous allons maintenant utiliser les fonctions créées précédemment pour simuler 10 000 parties de Craps et estimer la probabilité de gagner la mise « pass line ». Les fonctions roll_dice et evaluate_first_roll() que vous avez écrites précédemment ont été préchargées pour vous, à utiliser dans cet exercice. Rappelez-vous que la fonction evaluate_first_roll() prend en entrée le premier lancer du tireur et détermine ce qui doit se passer ensuite.
Cet exercice fait partie du cours
Énigmes de probabilité en R
Instructions
- Effectuez le premier lancer du tireur en simulant le lancer de deux dés.
- En utilisant la valeur de ce premier lancer, déterminez si la mise « pass line » est gagnée ou perdue, puis stockez le résultat dans le vecteur
won.
Exercice interactif pratique
Essayez cet exercice en complétant cet exemple de code.
set.seed(1)
won <- rep(NA, 10000)
for(i in 1:10000){
# Shooter's first roll
roll <- ___
# Determine result and store it
won[_] <- ___
}
sum(won)/10000