编写用于"切换"的函数
在模拟"切换"情形之前，先编写一个函数来完成本情境下的揭示。接下来在下一个练习中，我们将使用该函数来模拟切换时的获胜概率。
回顾：如果最初选中的门是正确的，那么主持人会在另外两扇门中随机选择一扇进行揭示。
如果最初选中的门不正确，那么主持人会直接揭示另一扇错误的门。请注意，在这种情况下，揭示没有任何随机性。
本练习是课程的一部分
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 <- ___
}
}