Fonction pour jouer une manche
Utilisons maintenant la fonction de l'exercice précédent et écrivons une fonction globale, appelée evaluate_first_roll, pour compléter une manche de craps. Comme dans l'exemple ci-dessous, cette fonction prendra en entrée le premier lancer du lanceur et déterminera la suite en conséquence. Les fonctions roll_dice et roll_after_point sont déjà chargées pour vous.
Cette activité fait partie du cours
Casse-têtes de probabilité en R
Instructions de l’exercice
- Utilisez l'opérateur
%in%pour vérifier si le lancer est un 7 ou un 11, ce qui donne une victoire immédiate. - Utilisez l'opérateur
%in%pour vérifier si le lancer est un 2, un 3 ou un 12, ce qui donne une défaite immédiate. - Si un point est établi, continuez de lancer jusqu'à ce que le point ressorte de nouveau (victoire) ou qu'un 7 sorte (défaite).
Exercice interactif pratique
Essayez cet exercice en complétant ce code d’exemple.
evaluate_first_roll <- function(roll){
# Check whether the first roll gives an immediate win
if(___){
won <- TRUE
}
# Check whether the first roll gives an immediate loss
if(___){
won <- FALSE
}
if(roll %in% c(4,5,6,8,9,10) ){
# Roll until the point or a 7 is rolled and store the win/lose outcome
won <- ___
}
return(won)
}