Ändra modellen till att använda en informativ prior

Koden som visas är den gamla modellen som du byggde från grunden i kapitel 2.

Den här övningen är en del av kursen

Grunderna i bayesiansk dataanalys i R

Övningsinstruktioner

Ändra modellen så att den använder den nya informativa priorn för proportion_clicks som du nyss valde:

rbeta(n_draws, shape1 = 5, shape2 = 95)

Interaktiv övning med praktiskt arbete

Testa den här övningen genom att slutföra den här exempelkoden.

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))

Redigera och kör kod