Funkce pro simulaci jednoho kola se sázením
Teď napišme funkci, která simuluje jedno kolo podle von Neumannova modelu, tentokrát včetně sázení.
Hráč B se podívá na svoji hodnotu a rozhodne se, jestli vsadí 1 dolar, nebo ne. Pokud se rozhodne vsadit, hráči porovnají své hodnoty a vyhraje ten s vyšší hodnotou. Pokud hráč B vsadí a vyhraje, výsledek je kladná 1; pokud vsadí a prohraje, výsledek je záporná 1. Pokud se hráč B rozhodne nesázet, žádný hráč nic nezíská ani neztratí.
Budeme předpokládat, že hráč B má pevnou strategii: pokud jeho hodnota překročí určitou hranici, vsadí. Tato hranice, bet_cutoff, bude argumentem funkce.
Toto cvičení je součástí kurzu
Probability Puzzles in R
Pokyny k cvičení
- Urči, jestli se hráč B rozhodne vsadit.
- Pokud vsadí, vrať výsledek sázky pomocí funkce
ifelse.
Interaktivní cvičení na vyzkoušení si v praxi
Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.
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)
}
}