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

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

Xem khóa học

Hướng dẫn bài tập

  • Từ mỗi trong số 10.000 giá trị l_weekday trong poisson_chains, dùng rpois() để 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ành Y_weekday trong poisson_chains.
  • Dùng ggplot() để vẽ biểu đồ mật độ cho các dự đoán Y_weekday củ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(___)
Chỉnh sửa và Chạy Mã