Suy luận về lưu lượng theo ngày trong tuần
Đầu ra mô phỏng RJAGS 10.000 vòng lặp, rail_sim_1, có trong workspace của bạn cùng với một data frame chứa kết quả chuỗi Markov:
> head(rail_chains_1, 2)
a b.1. b.2. s
1 420.6966 0 -54.30783 118.2328
2 399.5823 0 -52.02570 119.9499
Các chuỗi này cung cấp 10.000 bộ giá trị cho a, lưu lượng điển hình trên đường mòn vào ngày cuối tuần, và b.2., phần chênh lệch giữa lưu lượng điển hình ngày thường so với cuối tuần. Ví dụ, bộ tham số đầu tiên cho thấy thường có 420.6966 người đi vào ngày cuối tuần và ít hơn 54.30783 người vào ngày thường. Vậy nên thường có 420.6966 - 54.30783 = 366.3888 người đi vào ngày thường. Bạn sẽ dùng dữ liệu mô phỏng này để suy luận về lưu lượng trên đường mòn vào ngày thường.
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
- Kết hợp các giá trị chuỗi
avàb.2.để tạo một chuỗi 10.000 giá trị cho lưu lượng điển hình vào ngày thường. Lưu thànhweekday_meantrongrail_chains_1. - Dùng
ggplot()để vẽ biểu đồ mật độ cho các giá trị chuỗiweekday_mean. - Tạo khoảng tin cậy 95% cho lưu lượng điển hình vào ngày thườ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.
# Construct a chain of values for the typical weekday volume
rail_chains_1 <- rail_chains_1 %>%
mutate(weekday_mean = ___)
# Construct a density plot of the weekday chain
ggplot(___, aes(x = ___)) +
geom_density()
# 95% credible interval for typical weekday volume