Bắt đầu ngayBắt đầu miễn phí

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

Xem khóa học

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 red biể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ữa volumehightemp cho cuối tuần: l = exp(a + c Z)
  • Chồng lên một đường cong turquoise3 biể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ữa volumehightemp cho 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")
Chỉnh sửa và Chạy Mã