Thay đổi mô hình để dùng một prior giàu thông tin
Đoạn mã hiển thị là mô hình cũ bạn đã tự xây dựng từ đầu ở chương 2.
Bài tập này là một phần của khóa học
Những nền tảng của Phân tích dữ liệu Bayesian trong R
Hướng dẫn bài tập
- Hãy sửa mô hình này để dùng prior giàu thông tin mới cho
proportion_clicksmà bạn vừa chọn:
rbeta(n_draws, shape1 = 5, shape2 = 95)
Bài tập tương tác thực hành trực tiếp
Hãy thử làm bài tập này bằng cách hoàn thành đoạn mã mẫu này.
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))