Updaten met simulatie na 16 keer kop

We zien 16 keer kop in 20 worpen met een munt die ofwel eerlijk is (50% kans op kop) ofwel vertekend (75% kans op kop). Hoe waarschijnlijk is het dat de munt eerlijk is?

Deze oefening maakt deel uit van de cursus

Basis van kansrekening in R

Cursus bekijken

Oefeninstructies

Simuleer 50.000 gevallen van 20 worpen met een eerlijke munt (50% kans op kop) en met een vertekende munt (75% kans op kop). Sla deze variabelen respectievelijk op als fair en biased.
Bepaal het aantal eerlijke munten waarbij precies 16/20 keer kop is gegooid, en vervolgens het aantal vertekende munten waarbij precies 16/20 keer kop is gegooid. Sla ze respectievelijk op als fair_16 en biased_16.
Print de fractie van alle munten die 16 keer kop gaven die eerlijk waren — dit is de posterior-kans dat een munt met 16/20 eerlijk is.

Praktische interactieve oefening

Probeer deze oefening eens door deze voorbeeldcode in te vullen.

# 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

Code bewerken en uitvoeren