Aktualizace s apriorními pravděpodobnostmi
Pozorujeme 14 hlav z 20 hodů a začínáme s 80% pravděpodobností, že mince je férová, a 20% pravděpodobností, že je zkreslená na 75 %.
Tento případ vyřešíš simulací: začneš s „košem" 10 000 mincí, kde 8 000 je férových a 2 000 zkreslených, a každou z nich hodíš 20krát.
Toto cvičení je součástí kurzu
Základy pravděpodobnosti v R
Pokyny k cvičení
- Nasimuluj 8 000 pokusů s házením férové mince 20krát a 2 000 pokusů s házením zkreslené mince 20krát. Ulož je jako
fair_flipsabiased_flips. - Zjisti počet případů, kdy padlo 14 hlav u každého typu mince, a ulož je jako
fair_14abiased_14. - Vypočítej podíl všech mincí, které přinesly 14 hlav a přitom byly férové – tím získáš odhad aposteriorní pravděpodobnosti, že je mince férová.
Interaktivní cvičení na vyzkoušení si v praxi
Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.
# 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