Scrivere una funzione per "cambiare"
Prima di simulare la situazione di "cambio", scriviamo una funzione per effettuare la rivelazione in questo contesto. Useremo poi questa funzione nel prossimo esercizio per simulare la probabilità di vincita quando si cambia.
Ricorda che, se la porta scelta inizialmente è corretta, allora l'host sceglierà a caso una delle altre due porte da rivelare.
Se invece la porta scelta inizialmente è errata, l'host rivelerà semplicemente l'altra porta sbagliata. Nota che in questo caso non c'è nulla di casuale nella rivelazione.
Questo esercizio fa parte del corso
Rompicapi di probabilità in R
Istruzioni dell'esercizio
- Nel caso in cui la scelta iniziale sia stata corretta, usa la funzione
sampleper scegliere a caso una delle altre porte da rivelare. - Altrimenti, seleziona l'unica porta rimasta da rivelare.
Esercizio pratico interattivo
Prova a risolvere questo esercizio completando il codice di esempio.
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 <- ___
}
}