Updaten met priors

We zien 14 koppen in 20 worpen, en we beginnen met 80% kans dat de munt eerlijk is en 20% kans dat hij is bevooroordeeld naar 75%.

Je lost dit geval op met een simulatie, door te starten met een “emmer” van 10.000 munten, waarvan er 8.000 eerlijk zijn en 2.000 bevooroordeeld, en je gooit elk van hen 20 keer.

Deze oefening maakt deel uit van de cursus

Basis van kansrekening in R

Cursus bekijken

Oefeninstructies

Simuleer 8.000 trials van 20 worpen met een eerlijke munt en 2.000 trials van 20 worpen met een bevooroordeelde munt. Sla ze respectievelijk op als fair_flips en biased_flips.
Bepaal het aantal gevallen dat resulteerde in 14 keer kop voor elke munt, en sla ze respectievelijk op als fair_14 en biased_14.
Bepaal het aandeel van alle munten die 14 keer kop gaven dat eerlijk was: dit is een schatting van de posterior-kans dat de munt eerlijk is.

Praktische interactieve oefening

Probeer deze oefening eens door deze voorbeeldcode in te vullen.

# Simulate 8000 cases of flipping a fair coin, and 2000 of a biased coin
fair_flips <-
biased_flips <-

# Find the number of cases from each coin that resulted in 14/20
fair_14 <-
biased_14 <-

# Use these to estimate the posterior probability

Code bewerken en uitvoeren