Actualizarea cu trei monede
Să presupunem că, în loc ca o monedă să fie fie echitabilă, fie părtinită, există trei posibilități: moneda este echitabilă (50% steme), scăzută (25% steme) sau ridicată (75% steme). Există o probabilitate de 80% să fie echitabilă, de 10% să fie părtinită scăzut și de 10% să fie părtinită ridicat.
Observi că 14 din 20 de aruncări au ieșit stemă. Care este probabilitatea că moneda este echitabilă?
Acest exercițiu face parte din cursul
Bazele probabilității în R
Instrucțiuni pentru exercițiu
- Folosește funcția
rbinom()pentru a simula 80.000 de extrageri din moneda echitabilă, 10.000 de extrageri din moneda ridicată și 10.000 de extrageri din moneda scăzută, fiecare extragere conținând 20 de aruncări. Salvează-le caflips_fair,flips_highși, respectiv,flips_low. - Pentru fiecare dintre aceste tipuri, calculează numărul de monede care au dat rezultatul 14. Salvează-le ca
fair_14,high_14și, respectiv,low_14. - Determină probabilitatea posterioare că moneda a fost echitabilă, împărțind numărul de monede echitabile care au dat rezultatul 14 la numărul total de monede care au dat rezultatul 14.
Exercițiu interactiv practic
Încearcă acest exercițiu completând acest cod de exemplu.
# Simulate 80,000 draws from fair coin, 10,000 from each of high and low coins
flips_fair <-
flips_high <-
flips_low <-
# Compute the number of coins that resulted in 14 heads from each of these piles
fair_14 <-
high_14 <-
low_14 <-
# Compute the posterior probability that the coin was fair