Atualizando com simulação
Observamos 11 caras em 20 lançamentos de uma moeda que pode ser justa (50% de chance de dar cara) ou viciada (75% de chance de dar cara). Qual a probabilidade de a moeda ser justa? Responda simulando 50.000 moedas justas e 50.000 moedas viciadas.
Este exercício faz parte do curso
Fundamentos de Probabilidade em R
Instruções do exercício
- Simule 50.000 casos de 20 lançamentos de uma moeda justa (50% de chance de dar cara) e também de uma moeda viciada (75% de chance de dar cara). Salve essas variáveis como
fairebiased, respectivamente. - Encontre quantas moedas justas deram exatamente 11 caras em 20 lançamentos e, depois, quantas moedas viciadas deram exatamente 11 caras em 20 lançamentos. Salve como
fair_11ebiased_11, respectivamente. - Encontre a fração de todas as moedas que deram 11 caras que eram moedas justas — essa é a probabilidade a posteriori de uma moeda com 11/20 ser justa.
Exercício interativo prático
Experimente este exercício completando este código de exemplo.
# 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