Вероятность выигрыша при ставке на пасс-лайн
Теперь воспользуемся функциями, созданными ранее, чтобы смоделировать 10 000 партий в Craps и оценить вероятность выигрыша при ставке на пасс-лайн. Функции roll_dice и evaluate_first_roll(), которые вы написали прежде, уже загружены и готовы к использованию в этом упражнении. Напомним, что функция evaluate_first_roll() принимает результат первого броска стрелка на входе и определяет, что должно произойти дальше.
Это упражнение является частью курса
Задачи по теории вероятностей на R
Инструкции к упражнению
- Выполните первый бросок стрелка, смоделировав бросок двух кубиков.
- Используя значение первого броска, определите, будет ли ставка на пасс-лайн выиграна или проиграна, и сохраните результат в вектор
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