Пишем функцию для стратегии «смена двери»
Прежде чем моделировать стратегию «смена двери», напишем функцию, которая выполняет открытие двери ведущим. Эту функцию мы используем в следующем упражнении для оценки вероятности выигрыша при смене выбора.
Напомним: если изначально выбранная дверь оказалась верной, ведущий случайным образом открывает одну из двух оставшихся дверей.
Если же изначальный выбор был неверным, ведущий просто открывает единственную оставшуюся неверную дверь. В этом случае никакой случайности нет.
Это упражнение является частью курса
Задачи по теории вероятностей на R
Инструкции к упражнению
- Если изначальный выбор был верным, используйте функцию
sample, чтобы случайным образом выбрать одну из оставшихся дверей для открытия. - В противном случае выберите единственную оставшуюся дверь для открытия.
Интерактивное практическое упражнение
Попробуйте выполнить это упражнение, дополнив этот пример кода.
reveal_door <- function(doors, prize, initial_choice){
if(prize == initial_choice){
# Sample at random from the two remaining doors
reveal <- sample(x = ___, size = 1)
} else {
# When the prize and initial choice are different, reveal the only remaining door
reveal <- ___
}
}