Função para simular uma rodada com apostas
Agora vamos escrever uma função que simula uma rodada no modelo de von Neumann, incorporando apostas.
O Jogador B observa seu valor e decide se aposta $1 ou não. Se decidir apostar, os dois jogadores comparam os valores e o maior vence. Observe que, se o Jogador B apostar e ganhar, o resultado é positivo 1; se apostar e perder, o resultado é negativo 1. Se o Jogador B decidir não apostar, então nenhum dos jogadores ganha ou perde dinheiro.
Aqui, vamos supor que o Jogador B segue uma estratégia fixa: se o valor estiver acima de um certo limite, ele aposta. Esse limite, bet_cutoff, será o argumento da função.
Este exercício faz parte do curso
Probability Puzzles in R
Instruções do exercício
- Determine se o Jogador B vai decidir apostar.
- Se ele apostar, retorne o resultado da aposta usando a função
ifelse.
Exercício interativo prático
Experimente este exercício completando este código de exemplo.
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)
}
}