Aktualizowanie z użyciem priorytetów
Obserwujemy 14 orłów na 20 rzutów monetą. Na początku zakładamy, że z prawdopodobieństwem 80% moneta jest uczciwa, a z prawdopodobieństwem 20% jest obciążona (75% szans na orła).
Rozwiążesz ten problem za pomocą symulacji: zacznij od „pojemnika" z 10 000 monet, z których 8 000 jest uczciwych, a 2 000 – obciążonych, i rzuć każdą z nich 20 razy.
To ćwiczenie jest częścią kursu
Podstawy rachunku prawdopodobieństwa w R
Instrukcje do ćwiczenia
- Zasymuluj 8 000 prób rzutu uczciwą monetą 20 razy oraz 2 000 prób rzutu monetą obciążoną 20 razy. Zapisz wyniki odpowiednio jako
fair_flipsibiased_flips. - Znajdź liczbę przypadków, w których wypadło 14 orłów dla każdego rodzaju monety, i zapisz je odpowiednio jako
fair_14ibiased_14. - Oblicz, jaki odsetek wszystkich monet, które dały 14 orłów, to monety uczciwe – to oszacowanie prawdopodobieństwa a posteriori, że moneta jest uczciwa.
Interaktywne ćwiczenie praktyczne
Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.
# 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