“switch”를 위한 함수 작성
“switch” 상황을 시뮬레이션하기 전에, 먼저 이 문맥에서 공개(reveal)를 수행하는 함수를 작성해 보겠습니다. 그런 다음 다음 연습 문제에서 이 함수를 사용해 스위칭할 때의 승리 확률을 시뮬레이션할 거예요.
처음에 선택한 문이 정답이라면, 진행자는 나머지 두 문 중 하나를 무작위로 골라 공개합니다.
처음에 선택한 문이 오답이라면, 진행자는 다른 오답 문을 그대로 공개합니다. 이 경우 공개에는 무작위성이 없다는 점에 유의하세요.
이 연습은 강의의 일부입니다
R로 풀어보는 확률 퍼즐
연습 안내
- 처음 선택이 정답인 경우,
sample함수를 사용해 다른 문 중 하나를 무작위로 선택하여 공개하세요. - 그렇지 않다면, 남아 있는 유일한 문을 선택해 공개하세요.
실습형 인터랙티브 연습
이 예제를 이 샘플 코드를 완성하여 풀어보세요.
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 <- ___
}
}