ความน่าจะเป็นที่จะชนะเมื่อ "เปลี่ยนประตู"

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!")
}