Winkans met "switch"
Laten we nu de situatie coderen waarin de kandidaat eerst Deur #1 kiest en, nadat een geit is onthuld, wisselt naar de overgebleven deur.
Ook hier coderen we eerst één iteratie. Daarna verwerken we dit in een for-lus om het proces herhaaldelijk uit te voeren en zo een gesimuleerde schatting van de werkelijke winkans te krijgen.
Deze oefening maakt deel uit van de cursus
Kanspuzzels in R
Interactieve oefening met praktijkervaring
Probeer deze oefening door deze voorbeeldcode aan te vullen.
set.seed(1)
prize <- sample(doors,1)
initial_choice <- 1
# Use the reveal_door function to do the reveal
reveal <- reveal_door(___, ___, ___)
# Switch to the remaining door
final_choice <- ___
print(final_choice)
# Check whether the final choice equals the prize
if(___){
print("The final choice is correct!")
}