Actualización con simulación después de 16 caras

Observamos 16 caras en 20 lanzamientos de una moneda que puede ser justa (50% de probabilidad de cara) o sesgada (75% de probabilidad de cara). ¿Qué probabilidad hay de que la moneda sea justa?

Este ejercicio forma parte del curso

Fundamentos de probabilidad en R

Ver curso

Instrucciones del ejercicio

Simula 50.000 casos de 20 lanzamientos con una moneda justa (50% de probabilidad de cara) y con una moneda sesgada (75% de probabilidad de cara). Guarda estas variables como fair y biased, respectivamente.
Encuentra cuántas monedas justas dieron exactamente 16/20 caras y cuántas monedas sesgadas dieron exactamente 16/20 caras. Guárdalas como fair_16 y biased_16, respectivamente.
Imprime la fracción de todas las monedas que dieron 16 caras que eran monedas justas: esta es la probabilidad posterior de que una moneda con 16/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 16 heads?
fair_16 <- 
biased_16 <- 

# Find the fraction of fair coins that are 16 out of all coins that were 16

Editar y ejecutar código