Aktualizacja za pomocą symulacji po 16 orłach
Obserwujemy 16 orłów na 20 rzutów monetą, która jest albo uczciwa (50% szans na orła), albo obciążona (75% szans na orła). Jakie jest prawdopodobieństwo, że moneta jest uczciwa?
To ćwiczenie jest częścią kursu
Podstawy rachunku prawdopodobieństwa w R
Instrukcje do ćwiczenia
- Zasymuluj 50 000 przypadków rzutu 20 monetami: raz dla monety uczciwej (50% szans na orła), raz dla monety obciążonej (75% szans na orła). Zapisz wyniki odpowiednio jako
fairibiased. - Znajdź liczbę uczciwych monet, dla których dokładnie 16 na 20 rzutów wypadło orłem, oraz liczbę monet obciążonych z tym samym wynikiem. Zapisz je odpowiednio jako
fair_16ibiased_16. - Wyświetl ułamek wszystkich monet, które wypadły orłem dokładnie 16 razy i były monetami uczciwymi – to jest prawdopodobieństwo a posteriori, że moneta z wynikiem 16/20 jest uczciwa.
Interaktywne ćwiczenie praktyczne
Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.
# Simulate 50000 cases of flipping 20 coins from fair and from biased
fair <-
biased <-
# How many fair cases, and how many biased, led to exactly 16 heads?
fair_16 <-
biased_16 <-
# Find the fraction of fair coins that are 16 out of all coins that were 16