Aggiornare con la simulazione

Osserviamo 11 teste su 20 lanci da una moneta che può essere equa (50% di probabilità di testa) oppure sbilanciata (75% di probabilità di testa). Quanto è probabile che la moneta sia equa? Rispondi simulando 50.000 monete eque e 50.000 monete sbilanciate.

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 sbilanciata (75% di probabilità di testa). Salva queste variabili rispettivamente come fair e biased.
Trova il numero di monete eque in cui esattamente 11/20 sono uscite testa, poi il numero di monete sbilanciate in cui esattamente 11/20 sono uscite testa. Salvali rispettivamente come fair_11 e biased_11.
Trova la frazione di tutte le monete che sono uscite testa 11 volte e che erano eque: questa è la probabilità a posteriori che una moneta con 11/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 11 heads?
fair_11 <- 
biased_11 <- 

# Find the fraction of fair coins that are 11 out of all coins that were 11

Modifica ed esegui il codice