Een functie schrijven om te "wisselen"
Voordat we de situatie van "wisselen" simuleren, schrijven we eerst een functie die in deze context de onthulling uitvoert. We gebruiken deze functie in de volgende oefening om de winstkans bij wisselen te simuleren.
Onthoud: als de aanvankelijk gekozen deur correct is, kiest de presentator willekeurig een van de andere twee deuren om te onthullen.
Als de aanvankelijk gekozen deur onjuist is, onthult de presentator gewoon de andere onjuiste deur. Let op: in dit geval is er niets willekeurigs aan de onthulling.
Deze oefening maakt deel uit van de cursus
Kanspuzzels in R
Oefeninstructies
- Als de eerste keuze correct was, gebruik dan de functie
sampleom willekeurig een van de andere deuren te kiezen om te onthullen. - Kies anders de enige overgebleven deur om te onthullen.
Praktische interactieve oefening
Probeer deze oefening eens door deze voorbeeldcode in te vullen.
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 <- ___
}
}