Actualización con tres monedas
Supón que, en lugar de que una moneda sea justa o sesgada, hay tres posibilidades: que la moneda sea justa (50% caras), baja (25% caras) y alta (75% caras). Hay un 80% de probabilidad de que sea justa, un 10% de que esté sesgada a la baja y un 10% de que esté sesgada al alza.
Observas que 14 de 20 lanzamientos son caras. ¿Cuál es la probabilidad de que la moneda sea justa?
Este ejercicio forma parte del curso
Fundamentos de probabilidad en R
Instrucciones del ejercicio
- Usa la función
rbinom()para simular 80.000 extracciones de la moneda justa, 10.000 de la moneda alta y 10.000 de la moneda baja, con 20 lanzamientos en cada extracción. Guárdalas comoflips_fair,flips_highyflips_low, respectivamente. - Para cada uno de estos tipos, calcula cuántas monedas dieron 14. Guárdalas como
fair_14,high_14ylow_14, respectivamente. - Calcula la probabilidad posterior de que la moneda fuera justa dividiendo el número de monedas justas que resultaron en 14 entre el número total de monedas que resultaron en 14.
Ejercicio interactivo práctico
Prueba este ejercicio y completa el código de muestra.
# 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