Pravděpodobnost výhry při „přepnutí"
Teď si nakódujeme situaci, kdy soutěžící nejprve zvolí dveře č. 1 a po odhalení kozy přepne na zbývající dveře.
Opět začneme jednou iterací. Pak ji zapojíme do smyčky for, aby se celý proces opakoval, a získáme tak simulovaný odhad skutečné pravděpodobnosti výhry.
Toto cvičení je součástí kurzu
Probability Puzzles in R
Interaktivní cvičení na vyzkoušení si v praxi
Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.
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!")
}