Muntworpen met prop_model

De functie prop_model is in je werkruimte geladen. Deze implementeert een Bayesiaans model dat aanneemt dat:

• De data een vector is van successen en mislukkingen, weergegeven met 1's en 0's.
• Er een onbekende onderliggende succesverhouding is.
• Voordat de data wordt toegevoegd, is elke onderliggende succesverhouding even waarschijnlijk.

Stel dat je net vier keer met een munt hebt gegooid en de uitkomst was kop, munt, munt, kop. Als je kop als succes codeert en munt als mislukking, dan voert de volgende R‑code prop_model uit met deze data

data <- c(1, 0, 0, 1)
prop_model(data)