Pomocí funkce rbinom() nasimuluj 80 000 tahů z férové mince, 10 000 tahů z mince s vysokou pravděpodobností a 10 000 tahů z mince s nízkou pravděpodobností, přičemž každý tah obsahuje 20 hodů. Výsledky ulož jako flips_fair, flips_high a flips_low.
Pro každý z těchto typů spočítej počet mincí, u nichž výsledek byl 14. Ulož je jako fair_14, high_14 a low_14.
Zjisti posteriórní pravděpodobnost, že mince byla férová, tak, že vydělíš počet férových mincí s výsledkem 14 celkovým počtem mincí s výsledkem 14.

Aktualizace na základě důkazů