Actualizar con el teorema de Bayes
En este capítulo, usaste simulación para estimar la probabilidad posterior de que una moneda que dio 11 caras de 20 sea justa. Ahora volverás a calcularla, esta vez usando las probabilidades exactas de dbinom(). Hay un 50% de probabilidad de que la moneda sea justa y un 50% de que esté sesgada.
Este ejercicio forma parte del curso
Fundamentos de probabilidad en R
Instrucciones del ejercicio
- Usa la función
dbinom()para calcular la probabilidad exacta de obtener 11 caras en 20 lanzamientos con una moneda justa (50% de probabilidad de cara) y con una moneda sesgada (75% de probabilidad de cara). Guárdalas comoprobability_fairyprobability_biased, respectivamente. - Utiliza estas probabilidades para calcular la probabilidad posterior de que la moneda sea justa. Es la probabilidad de obtener 11 con una moneda justa, dividida entre la suma de las dos probabilidades.
Ejercicio interactivo práctico
Prueba este ejercicio y completa el código de muestra.
# Use dbinom to calculate the probability of 11/20 heads with fair or biased coin
probability_fair <-
probability_biased <-
# Calculate the posterior probability that the coin is fair