Pas het model toe op een andere gegevensset
Laten we het binomiale model fitten op zowel de videoadvertentiegegevens (13 van de 100 klikten) als de nieuwe tekstadvertentiegegevens (6 van de 100 klikten).
Deze oefening maakt deel uit van de cursus
Basisprincipes van Bayesiaanse data-analyse in R
Interactieve oefening met praktijkervaring
Probeer deze oefening door deze voorbeeldcode aan te vullen.
# Define parameters
n_draws <- 100000
n_ads_shown <- 100
proportion_clicks <- runif(n_draws, min = 0.0, max = 0.2)
n_visitors <- rbinom(n = n_draws, size = n_ads_shown,
prob = proportion_clicks)
prior <- data.frame(proportion_clicks, n_visitors)
# Create the posteriors for video and text ads
posterior_video <- prior[prior$n_visitors == 13, ]
posterior_text <- ___
# Visualize the posteriors
hist(posterior_video$proportion_clicks, xlim = c(0, 0.25))
___