Atualizando com o teorema de Bayes
Neste capítulo, você usou simulação para estimar a probabilidade a posteriori de que uma moeda que resultou em 11 caras em 20 lançamentos seja justa. Agora você vai calcular novamente, desta vez usando as probabilidades exatas de dbinom(). Há 50% de chance de a moeda ser justa e 50% de chance de a moeda ser viciada.
Este exercício faz parte do curso
Fundamentos de Probabilidade em R
Instruções do exercício
- Use a função
dbinom()para calcular a probabilidade exata de obter 11 caras em 20 lançamentos com uma moeda justa (50% de chance de cara) e com uma moeda viciada (75% de chance de cara). Salve-as comoprobability_faireprobability_biased, respectivamente. - Use esses valores para calcular a probabilidade a posteriori de que a moeda seja justa. Ela é a probabilidade de obter 11 com uma moeda justa dividida pela soma das duas probabilidades.
Exercício interativo prático
Experimente este exercício completando este código de exemplo.
# 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