Tính phân phối đồng thời
Các phần mã chúng ta đã phát triển trong video trước được hiển thị. Mã này định nghĩa một lưới trên các tỷ lệ nhấp tiềm ẩn (proportion_clicks) và các kết quả có thể có (n_visitors) trong pars. Nó thêm vào đó xác suất tiên nghiệm (prior) cho từng tổ hợp tham số và hàm hợp lý (likelihood) rằng mỗi proportion_clicks sẽ sinh ra n_visitors tương ứng.
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
- Thêm cột
pars$probability: Xác suất của từng tổ hợpproportion_clicksvàn_visitors. Như trong video, hãy tính bằng cách nhânlikelihoodvớiprior. - Đảm bảo cột
pars$probabilitycó tổng bằng1.0bằng cách chuẩn hóa: chiapars$probabilitycho tổng của chínhpars$probability.
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_ads_shown <- 100
proportion_clicks <- seq(0, 1, by = 0.01)
n_visitors <- seq(0, 100, by = 1)
pars <- expand.grid(proportion_clicks = proportion_clicks,
n_visitors = n_visitors)
pars$prior <- dunif(pars$proportion_clicks, min = 0, max = 0.2)
pars$likelihood <- dbinom(pars$n_visitors,
size = n_ads_shown, prob = pars$proportion_clicks)
# Add the column pars$probability and normalize it
pars$probability <- ___