Actualizarea cu probabilități a priori
Observăm că 14 din 20 de aruncări sunt cap, și pornim cu o probabilitate de 80% că moneda este corectă și de 20% că este trucată în favoarea capului cu 75%.
Vei rezolva acest caz prin simulare, pornind cu un „coș" de 10.000 de monede, dintre care 8.000 sunt corecte și 2.000 sunt trucate, și aruncând fiecare monedă de 20 de ori.
Acest exercițiu face parte din cursul
Bazele probabilității în R
Instrucțiuni pentru exercițiu
- Simulează 8.000 de experimente în care arunci o monedă corectă de 20 de ori și 2.000 de experimente în care arunci o monedă trucată de 20 de ori. Salvează rezultatele ca
fair_flips, respectivbiased_flips. - Determină numărul de cazuri în care s-au obținut 14 capete pentru fiecare tip de monedă și salvează-le ca
fair_14, respectivbiased_14. - Calculează fracția din totalul monedelor care au dat 14 capete și erau corecte: aceasta este o estimare a probabilității posterioare că moneda este corectă.
Exercițiu interactiv practic
Încearcă acest exercițiu completând acest cod de exemplu.
# 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