Вероятность выигрыша при стратегии «оставить выбор»
Давайте напишем код для симуляции игры «Проблема Монти Холла». В этом упражнении участник каждый раз выбирает дверь №1 и придерживается стратегии «оставить выбор». Наша задача — найти относительную частоту выигрыша за 10 000 итераций игры.
Сначала мы напишем код для одной итерации, а затем встроим его в цикл for, чтобы многократно повторять этот процесс и получить симулированную оценку истинной вероятности выигрыша — используя идею счётчика, которую мы рассмотрели ранее.
Это упражнение является частью курса
Задачи по теории вероятностей на R
Интерактивное практическое упражнение
Попробуйте выполнить это упражнение, дополнив этот пример кода.
set.seed(1)
doors <- c(1,2,3)
# Randomly select one of the doors to have the prize
prize <- sample(x = ___, size = ___)
initial_choice <- 1
# Check if the initial choice equals the prize
if(___){
print("The initial choice was correct!")
}
print(prize)