Funcție pentru simularea unei runde cu pariuri
Acum să scriem o funcție care simulează o rundă în modelul von Neumann, cu pariuri incluse.
Jucătorul B își observă valoarea și decide dacă pariază 1 dolar sau nu. Dacă decide să parieze, cei doi jucători își compară valorile, iar cel cu valoarea mai mare câștigă. Dacă Jucătorul B pariază și câștigă, rezultatul este pozitiv 1; dacă pariază și pierde, rezultatul este negativ 1. Dacă Jucătorul B decide să nu parieze, niciunul dintre jucători nu câștigă sau pierde bani.
Aici vom presupune că Jucătorul B are o strategie fixă: dacă valoarea sa depășește un anumit prag, atunci va paria. Acest prag, bet_cutoff, va fi argumentul funcției.
Acest exercițiu face parte din cursul
Puzzle de probabilitate în R
Instrucțiuni pentru exercițiu
- Determină dacă Jucătorul B va decide să parieze.
- Dacă pariază, returnează rezultatul pariului folosind funcția
ifelse.
Exercițiu interactiv practic
Încearcă acest exercițiu completând acest cod de exemplu.
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)
}
}