Функция для симуляции одного раунда со ставками
Теперь напишем функцию, которая симулирует один раунд по модели фон Неймана с учётом ставок.
Игрок B наблюдает своё значение и решает, делать ставку в $1 или нет. Если ставка сделана, игроки сравнивают значения, и побеждает тот, у кого оно выше. Обратите внимание: если игрок B делает ставку и выигрывает, результат равен +1; если проигрывает — −1. Если игрок B решает не делать ставку, ни один из игроков ничего не выигрывает и не проигрывает.
Предположим, что игрок B придерживается фиксированной стратегии: он делает ставку, только если его значение превышает определённый порог. Этот порог, bet_cutoff, будет аргументом функции.
Это упражнение является частью курса
Задачи по теории вероятностей на R
Инструкции к упражнению
- Определите, будет ли игрок B делать ставку.
- Если ставка сделана, верните результат ставки с помощью функции
ifelse.
Интерактивное практическое упражнение
Попробуйте выполнить это упражнение, дополнив этот пример кода.
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)
}
}