Función para simular una ronda con apuestas
Ahora vamos a escribir una función que simule una ronda bajo el modelo de von Neumann, incorporando las apuestas.
El Jugador B observará su valor y decidirá si apostar 1 $ o no. Si decide apostar, entonces los dos jugadores comparan sus valores y gana el valor más alto. Ten en cuenta que si el Jugador B apuesta y gana, el resultado es 1 positivo; si apuesta y pierde, el resultado es −1. Si el Jugador B decide no apostar, entonces ninguno de los jugadores gana o pierde dinero.
Aquí supondremos que el Jugador B sigue una estrategia fija: si su valor está por encima de un cierto umbral, apostará. Este umbral, bet_cutoff, será el argumento de la función.
Este ejercicio forma parte del curso
Acertijos de probabilidad en R
Instrucciones del ejercicio
- Determina si el Jugador B decidirá apostar.
- Si apuesta, devuelve el resultado de la apuesta usando la función
ifelse.
Ejercicio interactivo práctico
Prueba este ejercicio y completa el código de muestra.
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)
}
}