Użyj funkcji rbinom(), aby zasymulować 80 000 losowań dla monety uczciwej, 10 000 losowań dla monety z przewagą orła i 10 000 losowań dla monety z przewagą reszki – każde losowanie zawiera 20 rzutów. Zapisz wyniki odpowiednio jako flips_fair, flips_high i flips_low.
Dla każdego z tych typów oblicz liczbę monet, które dały wynik równy 14. Zapisz je odpowiednio jako fair_14, high_14 i low_14.
Wyznacz prawdopodobieństwo a posteriori, że moneta była uczciwa: podziel liczbę uczciwych monet dających wynik 14 przez łączną liczbę monet dających wynik 14.

Aktualizowanie wiedzy na podstawie dowodów