"switch" 전략의 승리 확률
이제 참가자가 처음에는 1번 문을 선택하고, 염소가 공개된 후 남은 문으로 바꾸는 상황을 코드로 작성해 보겠습니다.
이번에도 먼저 한 번만 실행하는 코드를 작성한 뒤, 이를 for 반복문에 넣어 여러 번 실행하여 실제 승리 확률의 모의 실험 추정값을 구하겠습니다.
이 연습은 강의의 일부입니다
R로 풀어보는 확률 퍼즐
실습형 인터랙티브 연습
이 예제를 이 샘플 코드를 완성하여 풀어보세요.
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!")
}