Probabilidade de vitória com "switch"
Agora vamos programar a situação em que o participante escolhe inicialmente a Porta nº 1 e, após a revelação de uma cabra, troca para a porta restante.
De novo, primeiro vamos codificar apenas uma iteração. Depois, vamos incorporar isso em um loop for para executar o processo repetidamente e obter uma estimativa simulada da probabilidade real de vitória.
Este exercício faz parte do curso
Probability Puzzles in R
Exercício interativo prático
Experimente este exercício completando este código de exemplo.
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!")
}