앞면 16번 이후 시뮬레이션으로 업데이트하기
한 동전을 20번 던졌더니 16번이 앞면이 나왔습니다. 이 동전은 공정한 동전(앞면 확률 50%)이거나 치우친 동전(앞면 확률 75%) 중 하나예요. 이 동전이 공정할 가능성은 얼마나 될까요?
이 연습은 강의의 일부입니다
R로 배우는 확률 기초
연습 안내
- 공정한 동전(앞면 확률 50%)과 치우친 동전(앞면 확률 75%) 각각에 대해, 동전 20번 던지기를 50,000회 시뮬레이션하세요. 결과를 각각
fair,biased에 저장하세요. - 정확히 16/20이 앞면인 공정한 동전의 경우의 수와, 정확히 16/20이 앞면인 치우친 동전의 경우의 수를 구해 각각
fair_16,biased_16에 저장하세요. - 앞면이 16번 나온 모든 경우 중 공정한 동전의 비율을 출력하세요. 이것이 20번 중 16번 앞면이 나온 동전이 공정할 것이라는 사후확률이에요.
실습형 인터랙티브 연습
이 예제를 이 샘플 코드를 완성하여 풀어보세요.
# 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 16 heads?
fair_16 <-
biased_16 <-
# Find the fraction of fair coins that are 16 out of all coins that were 16