Actualizar con simulación
Observamos 11 caras en 20 lanzamientos de una moneda que puede ser justa (50% de probabilidad de cara) o estar sesgada (75% de probabilidad de cara). ¿Qué probabilidad hay de que la moneda sea justa? Responde simulando 50.000 monedas justas y 50.000 monedas sesgadas.
Este ejercicio forma parte del curso
Fundamentos de probabilidad en R
Instrucciones del ejercicio
- Simula 50.000 casos de 20 lanzamientos de una moneda justa (50% de probabilidad de cara) y también de una moneda sesgada (75% de probabilidad de cara). Guarda estas variables como
fairybiased, respectivamente. - Calcula cuántas monedas justas dieron exactamente 11 caras en 20 lanzamientos y cuántas monedas sesgadas dieron exactamente 11 caras en 20 lanzamientos. Guárdalas como
fair_11ybiased_11, respectivamente. - Calcula la fracción de todas las monedas que salieron 11 caras que eran monedas justas; esta es la probabilidad posterior de que una moneda con 11/20 sea justa.
Ejercicio interactivo práctico
Prueba este ejercicio y completa el código de muestra.
# 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 11 heads?
fair_11 <-
biased_11 <-
# Find the fraction of fair coins that are 11 out of all coins that were 11