Fonction pour simuler une manche avec mise
Écrivons maintenant une fonction qui simule une manche selon le modèle de von Neumann, en intégrant les mises.
Le Joueur B observe sa valeur et décide de miser 1 $ ou non. S’il décide de miser, les deux joueurs comparent leurs valeurs et la valeur la plus élevée l’emporte. Notez que si le Joueur B mise et gagne, le résultat est plus 1 ; s’il mise et perd, le résultat est moins 1. Si le Joueur B décide de ne pas miser, aucun argent n’est gagné ni perdu par l’un ou l’autre joueur.
Ici, nous supposerons que le Joueur B suit une stratégie fixe : si sa valeur dépasse un certain seuil, il mise. Ce seuil, bet_cutoff, sera l’argument de la fonction.
Cet exercice fait partie du cours
Énigmes de probabilité en R
Instructions
- Déterminez si le Joueur B décide de miser.
- S’il mise, retournez le résultat de la mise en utilisant la fonction
ifelse.
Exercice interactif pratique
Essayez cet exercice en complétant cet exemple de code.
one_round <- function(bet_cutoff){
a <- runif(n = 1)
b <- runif(n = 1)
# Fill in betting condition
if(___){
# Return result of bet
return(___)
} else {
return(0)
}
}