Підкидання монети з prop_model

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

• data — це вектор успіхів і невдач, поданих як 1 та 0.
• Існує невідома базова частка успіху.
• До оновлення даними будь-яке значення цієї частки є однаково ймовірним.

Припустімо, ви щойно підкинули монету чотири рази й отримали: орел, решка, решка, орел. Якщо кодувати орла як успіх, а решку як невдачу, тоді наведений нижче код R запускає prop_model з цими даними

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