Functie om één ronde met inzetten te simuleren
Laten we nu een functie schrijven die één ronde simuleert onder het von Neumann-model, met inzetten meegenomen.
Speler B bekijkt hun waarde en besluit of ze $1 inzetten of niet. Als er wordt ingezet, vergelijken de twee spelers hun waardes en de hoogste waarde wint. Let op: als Speler B inzet en wint, is het resultaat plus 1; als ze inzetten en verliezen, is het resultaat min 1. Als Speler B besluit niet in te zetten, dan wint of verliest geen van beide spelers geld.
Hier gaan we ervan uit dat Speler B een vaste strategie heeft: als hun waarde boven een bepaalde grens ligt, zetten ze in. Deze grens, bet_cutoff, wordt het argument van de functie.
Deze oefening maakt deel uit van de cursus
Kanspuzzels in R
Oefeninstructies
- Bepaal of Speler B besluit in te zetten.
- Als ze inzetten, geef dan het resultaat van de inzet terug met de functie
ifelse.
Praktische interactieve oefening
Probeer deze oefening eens door deze voorbeeldcode in te vullen.
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)
}
}