세 가지 동전으로 업데이트하기
동전이 공정하거나 치우쳐 있다고 가정하는 대신, 세 가지 가능성이 있다고 해 봅시다. 공정(앞면 확률 50%), 낮음(앞면 확률 25%), 높음(앞면 확률 75%)입니다. 공정할 사전확률은 80%, 낮게 치우칠 사전확률은 10%, 높게 치우칠 사전확률은 10%입니다.
20번 던졌을 때 14번이 앞면이었습니다. 이 동전이 공정할 확률은 얼마인가요?
이 연습은 강의의 일부입니다
R로 배우는 확률 기초
연습 안내
rbinom()함수를 사용해, 공정한 동전에서 80,000회, 높은 동전에서 10,000회, 낮은 동전에서 10,000회를 각각 시뮬레이션하세요. 각 시뮬레이션은 20번의 동전 던지기를 포함합니다. 결과를 각각flips_fair,flips_high,flips_low에 저장하세요.- 각 경우에 대해, 결과가 14가 된 동전의 개수를 계산하세요. 각각
fair_14,high_14,low_14에 저장하세요. - 14가 나온 동전들 중 공정한 동전의 비율을 계산해, 동전이 공정했을 사후확률을 구하세요. 즉, 14가 나온 공정한 동전의 개수를 14가 나온 전체 동전의 개수로 나누세요.
실습형 인터랙티브 연습
이 예제를 이 샘플 코드를 완성하여 풀어보세요.
# Simulate 80,000 draws from fair coin, 10,000 from each of high and low coins
flips_fair <-
flips_high <-
flips_low <-
# Compute the number of coins that resulted in 14 heads from each of these piles
fair_14 <-
high_14 <-
low_14 <-
# Compute the posterior probability that the coin was fair