Win probability with "stick"
Let's write some code to simulate the Monty Hall game show. In this exercise, we will have the contestant choose Door #1, "stick" every time, and find the relative frequency of winning after 10000 iterations of the game.
First, we will code just one iteration. Then, we will incorporate this into a for loop to run the process repeatedly in order to obtain a simulated estimate of the true win probability, using the idea of a counter we discussed previously.
This exercise is part of the course
Probability Puzzles in R
Hands-on interactive exercise
Have a go at this exercise by completing this sample code.
set.seed(1)
doors <- c(1,2,3)
# Randomly select one of the doors to have the prize
prize <- sample(x = ___, size = ___)
initial_choice <- 1
# Check if the initial choice equals the prize
if(___){
print("The initial choice was correct!")
}
print(prize)