Симуляция 10000 игр
Теперь давайте симулируем 10 000 игр и ответим на следующий вопрос: поскольку 2 и 12 выпадают одинаково редко, как часто какое-либо из этих значений выпадает больше двух раз за игру?
Базовая стратегия советует избегать клеток с 2 и 12, так как теоретически они наименее вероятны. Но насколько удивительным на самом деле было бы более частое их появление? Давайте проверим это на практике. Функция roll_dice из предыдущих упражнений уже загружена для вас.
Это упражнение является частью курса
Задачи по теории вероятностей на R
Инструкции к упражнению
- Используйте функцию
replicate, чтобы бросить два кубика 60 раз. - Задайте составное условие, которое проверяет, было ли выброшено значение 2 или 12 более двух раз.
- Выведите на экран оценённую вероятность того, что значение 2 или 12 выпадет более двух раз за игру.
Интерактивное практическое упражнение
Попробуйте выполнить это упражнение, дополнив этот пример кода.
set.seed(1)
counter <- 0
for(i in 1:10000){
# Roll two dice 60 times
rolls <- ___
# Check whether 2 or 12 was rolled more than twice
if(___){
counter <- counter + 1
}
}
# Print the answer
print(___)