시뮬레이션으로 갱신하기
어떤 동전을 20번 던졌을 때 앞면이 11번 나왔습니다. 이 동전은 공정한 동전(앞면 확률 50%)이거나 편향된 동전(앞면 확률 75%) 중 하나예요. 이 동전이 공정할 가능성은 얼마나 될까요? 공정한 동전 50,000개와 편향된 동전 50,000개를 시뮬레이션하여 답해 보세요.
이 연습은 강의의 일부입니다
R로 배우는 확률 기초
연습 안내
- 공정한 동전(앞면 확률 50%)과 편향된 동전(앞면 확률 75%)으로 각각 동전을 20번 던지는 경우를 50,000회씩 시뮬레이션하세요. 각각
fair와biased변수에 저장하세요. - 공정한 동전 시뮬레이션에서 정확히 11/20이 앞면인 경우의 개수, 그리고 편향된 동전 시뮬레이션에서 정확히 11/20이 앞면인 경우의 개수를 구하세요. 각각
fair_11과biased_11에 저장하세요. - 앞면이 11번 나온 모든 경우 중 공정한 동전에서 나온 비율을 구하세요. 이것이 11/20 결과를 관측했을 때 동전이 공정할 것이라는 사후확률입니다.
실습형 인터랙티브 연습
이 예제를 이 샘플 코드를 완성하여 풀어보세요.
# Simulate 50000 cases of flipping 20 coins from fair and from biased
fair <-
biased <-
# How many fair cases, and how many biased, led to exactly 11 heads?
fair_11 <-
biased_11 <-
# Find the fraction of fair coins that are 11 out of all coins that were 11