Skriva en funktion för att "byta"
Innan vi simulerar scenariot "byta" ska vi skriva en funktion som hanterar avslöjandet i det här sammanhanget. Vi använder sedan den här funktionen i nästa övning för att simulera vinstsannolikheten när man byter dörr.
Kom ihåg att om den ursprungligen valda dörren är korrekt, väljer programledaren slumpmässigt en av de två andra dörrarna att avslöja.
Om den ursprungligen valda dörren är felaktig avslöjar programledaren helt enkelt den andra felaktiga dörren. Observera att avslöjandet inte innehåller något slumpmässigt i det fallet.
Den här övningen är en del av kursen
Sannolikhetspussel i R
Övningsinstruktioner
- Om det ursprungliga valet var korrekt, använd funktionen
sampleför att slumpmässigt välja en av de andra dörrarna att avslöja. - Annars väljer du den enda återstående dörren att avslöja.
Interaktiv övning med praktiskt arbete
Testa den här övningen genom att slutföra den här exempelkoden.
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 <- ___
}
}