Функція для моделювання одного раунду зі ставками
Тепер напишімо функцію, яка моделює один раунд за моделлю фон Неймана з урахуванням ставок.
Гравець 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)
}
}