Vẽ mô hình hồi quy Poisson
Nhắc lại cấu trúc hợp lý (likelihood) cho mô hình hồi quy Poisson theo Bayesian của biến đếm volume \(Y\)i theo trạng thái ngày trong tuần \(X\)i và nhiệt độ \(Z\)i: \(Y\)i \(\sim Pois(l\)i) trong đó
- \(log(l\)i\() \; = a + b \; X\)i \(+ c \; Z\)i; do đó
- \(l\)i\( \; = exp(a + b \; X\)i \(+ c \; Z\)i\()\)
Mô phỏng RJAGS 10.000 vòng lặp của hậu nghiệm mô hình, poisson_sim, đã có trong workspace của bạn cùng với một data frame chứa đầu ra xích Markov:
> head(poisson_chains, 2)
a b.1. b.2. c
1 5.019807 0 -0.1222143 0.01405269
2 5.018642 0 -0.1217608 0.01407691
Bạn sẽ dùng các kết quả này để vẽ các xu hướng hồi quy Poisson hậu nghiệm. Các xu hướng phi tuyến này có thể được thêm vào ggplot() bằng stat_function(). Ví dụ, chỉ định fun = function(x){x^2} sẽ trả về một đường xu hướng bậc hai.
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ạo biểu đồ scatter của volume theo hightemp với các đặc điểm sau:
- Dùng
colorđể phân biệt ngày trong tuần và cuối tuần. - Chồng lên một đường cong
redbiểu diễn xu hướng hồi quy Poisson hậu nghiệm ở mức trung bình \(l\)i của quan hệ tuyến tính giữavolumevàhightempcho cuối tuần:l = exp(a + c Z) - Chồng lên một đường cong
turquoise3biểu diễn xu hướng hồi quy Poisson hậu nghiệm ở mức trung bình \(l\)i của quan hệ tuyến tính giữavolumevàhightempcho ngày trong tuần:l = exp((a + b.2.) + c Z)
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.
# Plot the posterior mean regression models
ggplot(___, aes(x = ___, y = ___, color = ___)) +
geom_point() +
stat_function(fun = function(x){___(mean(___) + mean(___) * x)}, color = "red") +
stat_function(fun = function(x){___(mean(___) + mean(___) + mean(___) * x)}, color = "turquoise3")