Escrevendo uma função para "trocar"
Antes de simular a situação de "trocar", vamos primeiro escrever uma função para fazer a revelação nesse contexto. Em seguida, usaremos essa função no próximo exercício para simular a probabilidade de vitória ao trocar.
Lembre-se de que, se a porta escolhida inicialmente estiver correta, o apresentador escolherá aleatoriamente uma das outras duas portas para revelar.
Se a porta escolhida inicialmente estiver incorreta, o apresentador simplesmente revelará a outra porta errada. Observe que, nesse caso, não há aleatoriedade na revelação.
Este exercício faz parte do curso
Probability Puzzles in R
Instruções do exercício
- No caso em que a escolha inicial estava correta, use a função
samplepara escolher aleatoriamente uma das outras portas para revelar. - Caso contrário, selecione a única porta restante para revelar.
Exercício interativo prático
Experimente este exercício completando este código de exemplo.
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 <- ___
}
}