RJAGS ile Bayesçi Modelleme
Alicia Johnson
Associate Professor, Macalester College
$Y_i$ = yetişkin $i$'nin ağırlığı (kg)
$X_i$ = yetişkin $i$'nin boyu (cm)
$\;$
Model
$Y_i \sim N(m_i, s^2)$
$m_i = a + b X_i$
$a \sim N(0, 200^2)$
$b \sim N(1, 0.5^2)$
$s \sim \text{Unif}(0, 20)$



summary(weight_sim_big)
1. Empirical mean and standard deviation for each variable,
plus standard error of the mean:
Mean SD Naive SE Time-series SE
a -104.038 7.85296 0.0248332 0.661515
b 1.012 0.04581 0.0001449 0.003849
s 9.331 0.29495 0.0009327 0.001216
2. Quantiles for each variable:
2.5% 25% 50% 75% 97.5%
a -118.6843 -109.5171 -104.365 -99.036 -87.470
b 0.9152 0.9828 1.014 1.044 1.098
s 8.7764 9.1284 9.322 9.524 9.933
$a$'nın posterior ortalaması $\approx$ -104.038
$b$'nin posterior ortalaması $\approx$ 1.012

Posterior ortalama eğilimi:
$m_i = -104.038 + 1.012 X_i$
Markov zinciri çıktısı:
head(weight_chains)
a b s
[1,] -113.9029 1.072505 8.772007
[2,] -115.0644 1.077914 8.986393
[3,] -114.6958 1.077130 9.679812
[4,] -115.0568 1.072668 8.814403
[5,] -114.0782 1.071775 8.895299
[6,] -114.3271 1.069477 9.016185

Posterior ortalama eğilimi:
$m_i = -104.038 + 1.012 X_i$
Markov zinciri çıktısı:
head(weight_chains)
a b s
[1,] -113.9029 1.072505 8.772007
[2,] -115.0644 1.077914 8.986393
[3,] -114.6958 1.077130 9.679812
[4,] -115.0568 1.072668 8.814403
[5,] -114.0782 1.071775 8.895299
[6,] -114.3271 1.069477 9.016185

summary(weight_sim_big)
1. Empirical mean and standard deviation for each variable,
plus standard error of the mean:
Mean SD Naive SE Time-series SE
a -104.038 7.85296 0.0248332 0.661515
b 1.012 0.04581 0.0001449 0.003849
s 9.331 0.29495 0.0009327 0.001216
2. Quantiles for each variable:
2.5% 25% 50% 75% 97.5%
a -118.6843 -109.5171 -104.365 -99.036 -87.470
b 0.9152 0.9828 1.014 1.044 1.098
s 8.7764 9.1284 9.322 9.524 9.933
$a$ için %95 posterior güvenilir aralık: (-118.6843, -87.470)
$b$ için %95 posterior güvenilir aralık: (0.9152, 1.098)

Yorum
Önsel bilgilerimiz ve gözlenen verilere göre, $b$'nin 0.9152 ile 1.098 kg/cm arasında olma olasılığı (posterior) %95.

table(weight_chains$b > 1.1)
FALSE TRUE
97835 2165
mean(weight_chains$b > 1.1)
0.02165
Yorum:
$b$'nin 1.1 kg/cm'yi aşma olasılığı (posterior) %2.165.
RJAGS ile Bayesçi Modelleme