Phân phối dự đoán hậu nghiệm
Data frame weight_chains (trong không gian làm việc của bạn) chứa 100.000 dự đoán hậu nghiệm, Y_180, cho cân nặng của một người trưởng thành cao 180 cm:
> head(weight_chains, 2)
a b s iter m_180 Y_180
1 -113.9029 1.072505 8.772007 1 79.14803 71.65811
2 -115.0644 1.077914 8.986393 2 78.96014 75.78893
Bạn sẽ dùng 100.000 dự đoán này để xấp xỉ phân phối dự đoán hậu nghiệm cho cân nặng của một người trưởng thành cao 180 cm. Dữ liệu bdims đã có trong không gian làm việc của bạn.
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
- Dùng 10.000 giá trị
Y_180để xây dựng khoảng tin cậy hậu nghiệm 95% cho cân nặng của một người trưởng thành cao 180 cm. - Vẽ biểu đồ mật độ cho 100.000 dự đoán hợp lý hậu nghiệm của bạn.
- Vẽ biểu đồ scatter cho dữ liệu
wgtso vớihgttrongbdims.- Dùng
geom_abline()để chồng lên xu hướng hồi quy hậu nghiệm. - Dùng
geom_segment()để chồng lên một đường thẳng đứng tạihgtbằng 180, biểu diễn cận dưới và cận trên (yvàyend) củaci_180.
- 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.
# Construct a posterior credible interval for the prediction
ci_180 <- quantile(___, probs = c(___, ___))
ci_180
# Construct a density plot of the posterior predictions
ggplot(___, aes(x = ___)) +
geom_density() +
geom_vline(xintercept = ci_180, color = "red")
# Visualize the credible interval on a scatterplot of the data
ggplot(___, aes(x = ___, y = ___)) +
geom_point() +
geom_abline(intercept = mean(___), slope = mean(___), color = "red") +
geom_segment(x = 180, xend = 180, y = ___, yend = ___, color = "red")