Probabilité de gagner la mise de ligne de passe
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 de ligne de passe. Les fonctions roll_dice et evaluate_first_roll() que vous avez écrites plus tôt ont été préchargées pour vous et seront utilisées dans cet exercice. Rappelez-vous que la fonction evaluate_first_roll() prend le premier lancer du tireur en entrée et détermine ce qui doit se passer par la suite.
Cette activité fait partie du cours
Casse-têtes de probabilité en R
Instructions de l’exercice
- Effectuez le premier lancer du tireur en simulant le lancer de deux dés.
- À partir de la valeur du premier lancer, déterminez si la mise de ligne de passe est gagnée ou perdue et enregistrez le résultat dans le vecteur
won.
Exercice interactif pratique
Essayez cet exercice en complétant ce code d’exemple.
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