사전분포로 업데이트하기
20번 던져서 앞면이 14번 나왔고, 동전이 공정할 확률을 80%, 75%로 치우친 동전일 확률을 20%로 시작한다고 가정해요.
이 경우를 시뮬레이션으로 풀어볼 거예요. 10,000개의 동전이 들어 있는 "바구니"에서 시작해, 그중 8,000개는 공정하고 2,000개는 치우친 동전이라고 하고, 각 동전을 20번씩 던집니다.
이 연습은 강의의 일부입니다
R로 배우는 확률 기초
연습 안내
- 공정한 동전을 20번 던지는 시행 8,000개와 치우친 동전을 20번 던치는 시행 2,000개를 시뮬레이션하세요. 각각
fair_flips,biased_flips로 저장하세요. - 각 동전에서 앞면이 14번 나온 경우의 수를 구해, 각각
fair_14,biased_14로 저장하세요. - 앞면이 14번 나온 모든 경우 중 공정한 동전의 비율을 구하세요. 이것이 동전이 공정할 사후확률의 추정값입니다.
실습형 인터랙티브 연습
이 예제를 이 샘플 코드를 완성하여 풀어보세요.
# Simulate 8000 cases of flipping a fair coin, and 2000 of a biased coin
fair_flips <-
biased_flips <-
# Find the number of cases from each coin that resulted in 14/20
fair_14 <-
biased_14 <-
# Use these to estimate the posterior probability