Updaten met simulatie

We zien 11 koppen in 20 worpen met een munt die ofwel eerlijk is (50% kans op kop) ofwel bevooroordeeld (75% kans op kop). Hoe waarschijnlijk is het dat de munt eerlijk is? Beantwoord dit door 50.000 eerlijke munten en 50.000 bevooroordeelde munten te simuleren.

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 bevooroordeelde munt (75% kans op kop). Sla deze variabelen respectievelijk op als fair en biased.
Zoek het aantal eerlijke munten waarbij precies 11/20 keer kop is geworpen, en daarna het aantal bevooroordeelde munten waarbij precies 11/20 keer kop is geworpen. Sla ze respectievelijk op als fair_11 en biased_11.
Bepaal de fractie van alle munten die 11 keer kop gaven en eerlijk waren — dit is de a-posteriorikans dat een munt met 11/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 11 heads?
fair_11 <- 
biased_11 <- 

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

Code bewerken en uitvoeren