Atualizando com simulação após 16 caras
Observamos 16 caras em 20 lançamentos de uma moeda que pode ser justa (50% de chance de cara) ou viciada (75% de chance de cara). Qual é a probabilidade de a moeda ser justa?
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 cara) e também de uma moeda viciada (75% de chance de cara). Salve essas variáveis como
fairebiased, respectivamente. - Encontre o número de moedas justas em que exatamente 16/20 deram cara e, em seguida, o número de moedas viciadas em que exatamente 16/20 deram cara. Salve-os como
fair_16ebiased_16, respectivamente. - Imprima a fração de todas as moedas que deram 16 caras e que eram moedas justas — essa é a probabilidade a posteriori de uma moeda com 16/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 16 heads?
fair_16 <-
biased_16 <-
# Find the fraction of fair coins that are 16 out of all coins that were 16