Fonction pour simuler une ronde avec mise
Écrivons maintenant une fonction qui simule une ronde selon le modèle de von Neumann, en y intégrant les mises.
Le Joueur B observe sa valeur et décide s'il mise 1 $ ou non. S'il décide de miser, les deux joueurs comparent leurs valeurs et la plus élevée l'emporte. Notez que si le Joueur B mise et gagne, le résultat est de 1; s'il mise et perd, le résultat est de −1. Si le Joueur B choisit de ne pas miser, aucun des joueurs ne gagne ni ne perd d'argent.
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.
Cette activité fait partie du cours
Casse-têtes de probabilité en R
Instructions de l’exercice
- Déterminez si le Joueur B décide de miser.
- S'il mise, retournez le résultat de la mise à l'aide de la fonction
ifelse.
Exercice interactif pratique
Essayez cet exercice en complétant ce code d’exemple.
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)
}
}