Rzuty monetą z prop_model

Funkcja prop_model została wczytana do twojego środowiska pracy. Implementuje ona model bayesowski, który zakłada, że:

• data to wektor sukcesów i porażek reprezentowanych przez 1 i 0.
• Istnieje nieznana bazowa proporcja sukcesów.
• Przed uwzględnieniem danych każda bazowa proporcja sukcesów jest jednakowo prawdopodobna.

Załóżmy, że właśnie rzucono monetą cztery razy i wyniki to: orzeł, reszka, reszka, orzeł. Jeśli orzeł oznacza sukces, a reszka – porażkę, poniższy kod R uruchamia prop_model z tymi danymi:

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