Подбрасывание монеты с помощью prop_model

Функция prop_model уже загружена в вашу рабочую среду. Она реализует байесовскую модель со следующими допущениями:

• data — это вектор успехов и неудач, закодированных как 1 и 0.
• Существует неизвестная доля успехов.
• До обновления с помощью данных любая доля успехов считается одинаково вероятной.

Предположим, вы подбросили монету четыре раза и получили орёл, решку, решку, орёл. Если закодировать орёл как успех, а решку как неудачу, то следующий код на R запустит prop_model с этими данными:

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