Modifica el modelo para usar un previo informativo
El código mostrado es el modelo anterior que creaste desde cero en el capítulo 2.
Este ejercicio forma parte del curso
Fundamentos del Análisis de Datos Bayesiano en R
Instrucciones del ejercicio
- Cambia este modelo para usar el nuevo previo informativo para
proportion_clicksque acabas de seleccionar:
rbeta(n_draws, shape1 = 5, shape2 = 95)
ejercicio interactivo práctico
Prueba este ejercicio completando este código de ejemplo.
n_draws <- 100000
n_ads_shown <- 100
# Change the prior on proportion_clicks
proportion_clicks <-
runif(n_draws, min = 0.0, max = 0.2)
n_visitors <-
rbinom(n_draws, size = n_ads_shown,
prob = proportion_clicks)
prior <-
data.frame(proportion_clicks, n_visitors)
posterior <-
prior[prior$n_visitors == 13, ]
# This plots the prior and the posterior in the same plot
par(mfcol = c(2, 1))
hist(prior$proportion_clicks,
xlim = c(0, 0.25))
hist(posterior$proportion_clicks,
xlim = c(0, 0.25))