세 가지 동전으로 업데이트하기

동전이 공정하거나 치우쳐 있다고 가정하는 대신, 세 가지 가능성이 있다고 해 봅시다. 공정(앞면 확률 50%), 낮음(앞면 확률 25%), 높음(앞면 확률 75%)입니다. 공정할 사전확률은 80%, 낮게 치우칠 사전확률은 10%, 높게 치우칠 사전확률은 10%입니다.

20번 던졌을 때 14번이 앞면이었습니다. 이 동전이 공정할 확률은 얼마인가요?

rbinom() 함수를 사용해, 공정한 동전에서 80,000회, 높은 동전에서 10,000회, 낮은 동전에서 10,000회를 각각 시뮬레이션하세요. 각 시뮬레이션은 20번의 동전 던지기를 포함합니다. 결과를 각각 flips_fair, flips_high, flips_low에 저장하세요.
각 경우에 대해, 결과가 14가 된 동전의 개수를 계산하세요. 각각 fair_14, high_14, low_14에 저장하세요.
14가 나온 동전들 중 공정한 동전의 비율을 계산해, 동전이 공정했을 사후확률을 구하세요. 즉, 14가 나온 공정한 동전의 개수를 14가 나온 전체 동전의 개수로 나누세요.