Khoảng tin cậy hậu nghiệm
Hãy tập trung vào tham số độ dốc \(b\), tốc độ thay đổi cân nặng theo chiều cao. Kỳ vọng hậu nghiệm của \(b\) phản ánh xu hướng trong mô hình hậu nghiệm của độ dốc. Ngược lại, một khoảng tin cậy hậu nghiệm cung cấp một khoảng giá trị độ dốc hợp lý theo hậu nghiệm, qua đó phản ánh sự không chắc chắn theo hậu nghiệm về \(b\). Ví dụ, khoảng tin cậy 95% cho \(b\) trải từ phân vị 2.5 đến phân vị 97.5 của hậu nghiệm \(b\). Do đó có 95% (theo hậu nghiệm) khả năng \(b\) nằm trong khoảng này.
Bạn sẽ dùng đầu ra mô phỏng từ RJAGS để xấp xỉ các khoảng tin cậy cho \(b\). Mô phỏng RJAGS 100.000 vòng lặp của hậu nghiệm, weight_sim_big, đã có trong không gian làm việc của bạn cùng với một data frame chứa đầu ra chuỗi Markov, weight_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
- Lấy thống kê
summary()của các chuỗi trongweight_sim_big. - Các phân vị hậu nghiệm
2.5%và97.5%cho \(b\) được báo cáo trong Bảng 2 củasummary(). Áp dụngquantile()lênweight_chainsthô để kiểm chứng các phép tính này. Lưu kết quả làci_95và in ra. - Tương tự, dùng dữ liệu
weight_chainsđể dựng khoảng tin cậy 90% cho \(b\). Lưu kết quả làci_90và in ra. - Vẽ biểu đồ mật độ cho các giá trị chuỗi Markov của \(b\). Chồng thêm các đường thẳng đứng biểu diễn khoảng tin cậy 90% cho $b
bằnggeomvline()vớixintercept = ci90`.
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.
# Summarize the posterior Markov chains
# Calculate the 95% posterior credible interval for b
ci_95 <- quantile(___, probs = c(___, ___))
ci_95
# Calculate the 90% posterior credible interval for b
ci_90 <- ___
ci_90
# Mark the 90% credible interval
ggplot(___, aes(x = ___)) +
geom_density() +
geom_vline(xintercept = ___, color = "red")