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

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

Xem khóa học

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

  • Lấy thống kê summary() của các chuỗi trong weight_sim_big.
  • Các phân vị hậu nghiệm 2.5%97.5% cho \(b\) được báo cáo trong Bảng 2 của summary(). Áp dụng quantile() lên weight_chains thô để kiểm chứng các phép tính này. Lưu kết quả là ci_95 và 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_90 và 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 $bbằ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")
Chỉnh sửa và Chạy Mã