Anpassa modellen till ett annat dataset
Nu ska vi anpassa binomialmodellen till både videoannonsdata (13 av 100 klickade) och ny textannonsdata (6 av 100 klickade).
Den här övningen är en del av kursen
Grunderna i bayesiansk dataanalys i R
Interaktiv övning med praktiskt arbete
Testa den här övningen genom att slutföra den här exempelkoden.
# 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))
___