Funkcja symulująca jedną rundę z zakładem
Teraz napiszemy funkcję, która symuluje jedną rundę według modelu von Neumanna, z uwzględnieniem zakładów.
Gracz B obserwuje swoją wartość i decyduje, czy postawić 1 dolara, czy nie. Jeśli zdecyduje się na zakład, obaj gracze porównują swoje wartości – wygrywa wyższa. Jeśli Gracz B postawi i wygra, wynik wynosi +1; jeśli postawi i przegra, wynik wynosi -1. Jeśli Gracz B zrezygnuje z zakładu, żaden z graczy nie zyskuje ani nie traci pieniędzy.
Zakładamy, że Gracz B stosuje stałą strategię: obstawia, gdy jego wartość przekracza określony próg. Ten próg, bet_cutoff, będzie argumentem funkcji.
To ćwiczenie jest częścią kursu
Zagadki prawdopodobieństwa w R
Instrukcje do ćwiczenia
- Określ, czy Gracz B zdecyduje się na zakład.
- Jeśli postawi, zwróć wynik zakładu za pomocą funkcji
ifelse.
Interaktywne ćwiczenie praktyczne
Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.
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)
}
}