Ймовірність виграшу ставки pass line
Тепер використаємо раніше створені функції, щоб змоделювати 10 000 ігор у Craps і оцінити ймовірність виграшу ставки pass line. Функції roll_dice та evaluate_first_roll(), які ви писали раніше, попередньо завантажено для цієї вправи. Нагадаємо, що функція evaluate_first_roll() приймає перший кидок стрілка як вхідні дані та визначає, що має відбутися далі.
Ця вправа є частиною курсу
Ймовірнісні головоломки в R
Інструкції до вправи
- Виконайте перший кидок стрілка, змоделювавши кидок двох кісток.
- Використовуючи значення першого кидка, визначте, чи ставка pass line виграє або програє, і збережіть результат у векторі
won.
Інтерактивна практична вправа
Спробуйте виконати цю вправу, доповнивши цей зразок коду.
set.seed(1)
won <- rep(NA, 10000)
for(i in 1:10000){
# Shooter's first roll
roll <- ___
# Determine result and store it
won[_] <- ___
}
sum(won)/10000