Vinstchans med "byta"
Nu ska vi koda situationen där deltagaren börjar med att välja dörr 1 och sedan, efter att en get har avslöjats, byter till den återstående dörren.
Precis som tidigare kodar vi först en enskild iteration. Sedan bygger vi in det i en for-slinga för att köra processen upprepade gånger och få en simulerad uppskattning av den verkliga vinstchansen.
Den här övningen är en del av kursen
Sannolikhetspussel i R
Interaktiv övning med praktiskt arbete
Testa den här övningen genom att slutföra den här exempelkoden.
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!")
}