撰寫用來「換門」的函式
在模擬「換門」這個情境之前，先撰寫一個在此情境中負責揭露（reveal）的函式。接下來的練習中，會使用這個函式來模擬換門時的獲勝機率。
回想一下：如果最初選到的門是正確的，主持人會在另外兩扇門中隨機選一扇揭露。
如果最初選到的門是錯誤的，主持人就會直接揭露另一扇錯誤的門。注意，在這種情況下，揭露並沒有隨機性。
本練習屬於課程
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 <- ___
}
}