Écrire une fonction pour « switcher »
Avant de simuler la stratégie « switch », écrivons d’abord une fonction qui réalise la révélation dans ce contexte. Nous utiliserons ensuite cette fonction dans l’exercice suivant pour simuler la probabilité de gagner en changeant de porte.
Rappelez-vous que si la porte choisie au départ est la bonne, l’animateur choisira au hasard l’une des deux autres portes à révéler.
Si la porte choisie au départ est incorrecte, l’animateur révélera simplement l’autre porte incorrecte. Notez que dans ce cas, il n’y a rien d’aléatoire dans la révélation.
Cet exercice fait partie du cours
Énigmes de probabilité en R
Instructions
- Si le choix initial était correct, utilisez la fonction
samplepour choisir aléatoirement l’une des autres portes à révéler. - Sinon, sélectionnez la seule porte restante à révéler.
Exercice interactif pratique
Essayez cet exercice en complétant cet exemple de code.
reveal_door <- function(doors, prize, initial_choice){
if(prize == initial_choice){
# Sample at random from the two remaining doors
reveal <- sample(x = ___, size = 1)
} else {
# When the prize and initial choice are different, reveal the only remaining door
reveal <- ___
}
}