Aktualizowanie dla innych wyników
W poprzednim ćwiczeniu wyznaczyłeś prawdopodobieństwo, że moneta jest uczciwa, jeśli wypadło 11 orłów w 20 rzutach – przy założeniu, że wcześniej szansa na monetę uczciwą i obciążoną była równa. Kod wyglądał mniej więcej tak:
probability_fair <- dbinom(11, 20, .5)
probability_biased <- dbinom(11, 20, .75)
probability_fair / (probability_fair + probability_biased)
Teraz za pomocą funkcji dbinom() wyznaczysz prawdopodobieństwo a posteriori dla dwóch innych wyników.
To ćwiczenie jest częścią kursu
Podstawy rachunku prawdopodobieństwa w R
Instrukcje do ćwiczenia
- Wyznacz prawdopodobieństwo, że moneta, dla której wypadło 14 orłów w 20 rzutach, jest uczciwa.
- Wyznacz prawdopodobieństwo, że moneta, dla której wypadło 18 orłów w 20 rzutach, jest uczciwa.
Interaktywne ćwiczenie praktyczne
Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.
# Find the probability that a coin resulting in 14/20 is fair
# Find the probability that a coin resulting in 18/20 is fair