Lanzamientos de moneda con prop_model

La función prop_model ya está cargada en tu espacio de trabajo. Implementa un modelo bayesiano que asume lo siguiente:

• Los data son un vector de éxitos y fracasos representados por 1 y 0.
• Existe una proporción subyacente de éxito que es desconocida.
• Antes de actualizarse con datos, cualquier valor para la proporción subyacente de éxito es igualmente probable.

Imagina que acabas de lanzar una moneda cuatro veces y has obtenido cara, cruz, cruz, cara. Si codificas cara como éxito y cruz como fracaso, el siguiente código de R ejecuta prop_model con estos datos

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