Вероятность выигрыша при стратегии «смена двери»
Теперь смоделируем ситуацию, в которой участник изначально выбирает дверь №1, а после того как открывают дверь с козой, переключается на оставшуюся дверь.
Как и прежде, сначала мы напишем код для одной итерации, а затем обернём его в цикл for, чтобы многократно повторить процесс и получить симулированную оценку истинной вероятности выигрыша.
Это упражнение является частью курса
Задачи по теории вероятностей на R
Интерактивное практическое упражнение
Попробуйте выполнить это упражнение, дополнив этот пример кода.
set.seed(1)
prize <- sample(doors,1)
initial_choice <- 1
# Use the reveal_door function to do the reveal
reveal <- reveal_door(___, ___, ___)
# Switch to the remaining door
final_choice <- ___
print(final_choice)
# Check whether the final choice equals the prize
if(___){
print("The final choice is correct!")
}