Probabilidad de ganar con "cambiar"
Ahora vamos a programar la situación en la que la persona concursante elige inicialmente la Puerta n.º 1 y, tras revelar una cabra, cambia a la puerta restante.
De nuevo, primero codificaremos una sola iteración. Después, lo incorporaremos en un bucle for para ejecutar el proceso repetidamente y obtener una estimación simulada de la probabilidad real de ganar.
Este ejercicio forma parte del curso
Acertijos de probabilidad en R
Ejercicio interactivo práctico
Prueba este ejercicio y completa el código de muestra.
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!")
}