Aggiornare con la simulazione dopo 16 testa

Osserviamo 16 testa su 20 lanci di una moneta che è o equa (50% di probabilità di testa) o truccata (75% di probabilità di testa). Quanto è probabile che la moneta sia equa?

Questo esercizio fa parte del corso

Fondamenti di probabilità in R

Visualizza il corso

Istruzioni dell'esercizio

Simula 50.000 casi di 20 lanci da una moneta equa (50% di probabilità di testa) e da una moneta truccata (75% di probabilità di testa). Salva queste variabili rispettivamente come fair e biased.
Trova quante monete eque hanno dato esattamente 16/20 teste, quindi quante monete truccate hanno dato esattamente 16/20 teste. Salvale rispettivamente come fair_16 e biased_16.
Stampa la frazione di tutte le monete che hanno dato 16 testa che erano monete eque: questa è la probabilità a posteriori che una moneta con 16/20 sia equa.

Esercizio pratico interattivo

Prova a risolvere questo esercizio completando il codice di esempio.

# 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

Modifica ed esegui il codice