Funktion för att simulera en spelrunda med satsning
Nu ska vi skriva en funktion som simulerar en spelrunda enligt von Neumanns modell, med satsning inbyggd.
Spelare B observerar sitt värde och bestämmer om hen vill satsa 1 dollar eller inte. Om spelaren väljer att satsa jämför de två spelarna sina värden och det högre värdet vinner. Observera att om spelare B satsar och vinner är resultatet positivt 1, och om hen satsar och förlorar är resultatet negativt 1. Väljer spelare B att inte satsa förlorar eller vinner ingen av spelarna några pengar.
Här antar vi att spelare B har en fast strategi: om deras värde överstiger ett visst tröskelvärde väljer de att satsa. Detta tröskelvärde, bet_cutoff, är funktionens argument.
Den här övningen är en del av kursen
Sannolikhetspussel i R
Övningsinstruktioner
- Avgör om spelare B kommer att välja att satsa.
- Om de satsar, returnera satsningens resultat med hjälp av funktionen
ifelse.
Interaktiv övning med praktiskt arbete
Testa den här övningen genom att slutföra den här exempelkoden.
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)
}
}