Prawdopodobieństwo wygranej przy strategii "zamiany"
Teraz zakodujmy sytuację, w której uczestnik początkowo wybiera drzwi nr 1, a po odsłonięciu kozy przełącza się na pozostałe drzwi.
Podobnie jak poprzednio, najpierw zakodujemy jedną iterację. Następnie umieścimy ją w pętli for, aby wielokrotnie powtórzyć ten proces i uzyskać symulowane oszacowanie prawdziwego prawdopodobieństwa wygranej.
To ćwiczenie jest częścią kursu
Zagadki prawdopodobieństwa w R
Interaktywne ćwiczenie praktyczne
Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.
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!")
}