Dự đoán hậu nghiệm Poisson
Biến l_weekday của bạn thể hiện xu hướng về lưu lượng vào các ngày trong tuần có nhiệt độ 80 độ:
> head(poisson_chains, 2)
a b.1. b.2. c l_weekend l_weekday
1 5.0198 0 -0.1222 0.0141 465.924 412.324
2 5.0186 0 -0.1218 0.0141 466.284 412.829
Giờ bạn đã hiểu xu hướng, hãy đưa ra một vài dự đoán! Cụ thể, hãy dự đoán lưu lượng trên đường mòn vào ngày trong tuần kế tiếp có nhiệt độ 80 độ. Để làm điều đó, bạn cần tính đến biến thiên cá thể so với xu hướng, được mô hình hóa bằng khả năng xảy ra \(Y\)i \(\sim Pois(l\)i).
Sử dụng rpois(n, lambda) với kích thước mẫu n và tham số tốc độ lambda, bạn sẽ mô phỏng các dự đoán Poisson cho lưu lượng dưới mỗi giá trị của xu hướng hậu nghiệm hợp lý trong poisson_chains.
Bài tập này là một phần của khóa học
Mô hình hóa Bayesian với RJAGS
Hướng dẫn bài tập
- Từ mỗi trong số 10.000 giá trị
l_weekdaytrongpoisson_chains, dùngrpois()để dự đoán lưu lượng vào một ngày trong tuần có nhiệt độ 80 độ. Lưu các giá trị này thànhY_weekdaytrongpoisson_chains. - Dùng
ggplot()để vẽ biểu đồ mật độ cho các dự đoánY_weekdaycủa bạn. - Xấp xỉ xác suất hậu nghiệm rằng lưu lượng vào một ngày trong tuần 80 độ nhỏ hơn 400 người dùng.
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.
# Simulate weekday predictions under each parameter set
poisson_chains <- poisson_chains %>%
mutate(Y_weekday = rpois(n = ___, lambda = ___))
# Construct a density plot of the posterior weekday predictions
ggplot(___, aes(x = ___)) +
geom_density()
# Posterior probability that weekday volume is less 400
mean(___)