Escribir una función para "cambiar"
Antes de simular la situación de "cambiar", primero vamos a escribir una función para hacer la revelación en este contexto. Después usaremos esta función en el siguiente ejercicio para simular la probabilidad de ganar cuando cambias.
Recuerda que, si la puerta elegida inicialmente es la correcta, el anfitrión elegirá al azar una de las otras dos puertas para revelar.
Si la puerta elegida inicialmente es incorrecta, entonces el anfitrión simplemente revelará la otra puerta incorrecta. Observa que en este caso no hay nada aleatorio en la revelación.
Este ejercicio forma parte del curso
Acertijos de probabilidad en R
Instrucciones del ejercicio
- Si la elección inicial fue correcta, usa la función
samplepara escoger aleatoriamente una de las otras puertas para revelar. - En caso contrario, selecciona la única puerta restante para revelar.
Ejercicio interactivo práctico
Prueba este ejercicio y completa el código de muestra.
reveal_door <- function(doors, prize, initial_choice){
if(prize == initial_choice){
# Sample at random from the two remaining doors
reveal <- sample(x = ___, size = 1)
} else {
# When the prize and initial choice are different, reveal the only remaining door
reveal <- ___
}
}