๋ฌธ์ ์ ์์๋ฅผ ํตํด ๋ชฌํ ์นด๋ฅผ๋ก ์ถ์ (Monte-carlo estimation)์ ๋ํด ์์๋ณผ ๊ฒ์ด๋ค.
๋ฌธ์ )
๊ฐ๋ง๋ถํฌ(alpha = 2, beta = 1/3)์ ํ๊ท ์ ์์์ ์ธ ๊ณ์ฐ๊ณผ ๋ชฌํ ์นด๋ฅผ๋ก ์ถ์ ์ ํตํด ๊ตฌํ๊ณ ๊ฒฐ๊ณผ๋ฅผ ๋น๊ตํ์ฌ๋ผ.
ํ์ด)
In:
alpha = 2
beta = 1/3
m = 10^8
theta_star <- rgamma(m, alpha, beta)
mean(theta_star)
Out:
[1] 5.999948
โท ์์ ์ฝ๋๋ R์ ์ด์ฉํ์ฌ ํ๊ท ์ ๋ํ ๋ชฌํ ์นด๋ฅผ๋ก ์ถ์ ์ ๊ฒฐ๊ณผ์ด๋ค.
โท ์์์ ์ธ ๊ณ์ฐ๊ณผ ๋ชฌํ ์นด๋ฅผ๋ก ์ถ์ ์ ํตํ ๊ฒฐ๊ณผ๊ฐ ๊ฑฐ์ ๋์ผํ ๊ฒ์ ํ์ธํ ์ ์๋ค.
โท ๋ชฌํ ์นด๋ฅผ๋ก ์ถ์ ์ ํ๊ธฐ ์ํด ๊ฐ๋ง๋ถํฌ๋ก๋ถํฐ ๋ฐ์ดํฐ๋ฅผ ์์ฑํ ๋ค, ๋ฐ์ดํฐ์ ํ๊ท ์ ํตํด ๊ฐ๋ง๋ถํฌ์ ํ๊ท ์ ๊ตฌํ์๋ค.
โท ๋ชฌํ ์นด๋ฅผ๋ก ์ถ์ ์ ํตํ ํ๊ท ์ด ์ค์ฌ๊ทนํ์ ๋ฆฌ(Central Limit Theorem)์ ๋ฐ๋ผ ์ ๊ท๋ถํฌ๋ฅผ ๋ฐ๋ฅธ๋ค๋ ๊ฒ์ ์ ์ ์๋ค. ์ด๋ก๋ถํฐ ์ถ์ฒญ์น์ ์ ๋ขฐ๊ตฌ๊ฐ์ ๊ตฌํ ์ ์๋ค.
โถ ์์ ๊ฒฝ์ฐ๋ ๋น๊ต์ ์์์ ์ผ๋ก ๊ณ์ฐํ๊ธฐ ์ฌ์ด ํํ์ด๊ธฐ ๋๋ฌธ์, ์ ๋ถ์ ํตํด ํ๊ท ์ ๊ตฌํ ์ ์๋ค. ํ์ง๋ง ์ ๋ถ์ด ์ด๋ ค์ด ๊ฒฝ์ฐ์๋ ์์์ ์ผ๋ก ๊ณ์ฐํ๊ธฐ๋ ์ฝ์ง ์๋ค. ๋ฐ๋ผ์ ์ด๋ฐ ๊ฒฝ์ฐ์๋ ๋์์ผ๋ก ๋ชฌํ ์นด๋ฅผ๋ก ์ถ์ ์ ํตํด ๊ตฌํ ์ ์๋ค.
โถ ๋ชฌํ ์นด๋ฅผ๋ก ์ถ์ ์ ํ๊ท ์ด์ธ์๋ ๋ถ์ฐ, ์ฌ๊ฑด์ ๋ฐ์ ํ๋ฅ , ๋ฐฑ๋ถ์์ ๋ฑ์ ๊ตฌํ๋๋ฐ ์ฌ์ฉํ ์ ์๋ค.
์์ ๊ฒฐ๊ณผ์์ ๋ณด๋ค์ํผ ์๋์ ์์ด ์ฑ๋ฆฝํ๋ค๋ ๊ฒ์ ์ ์ ์๋ค.
๋ค์์ ์์์์ ์ด ์์ ์ ์ฉํ์ฌ ๋ณด์.
์์ 1)
โท ์์ ์์ ์ ์ฉํ์ฌ, ์ฆ, ๋ชฌํ ์นด๋ฅผ๋ก ์ถ์ ์ ํตํด theta๊ฐ 5๋ณด๋ค ์์ ํ๋ฅ ์ ๊ณ์ฐํ ์ ์๋ค.
โท ์์ ๋ฐฉ๋ฒ์ ์์ฉํ๋ฉด ๋ฐฑ๋ถ์์์ ๋ํ ๊ณ์ฐ๋ ๊ฐ๋ฅํ๋ค.
์์ 2)
โท ์์ ์์๋ ๊ณ์ธต์ ์ผ๋ก ๋ํ๋ ์๋ ๋ชจ๋ธ์ phi์ y์ ๊ฒฐํฉํ๋ฅ (Joint probability)๋ฅผ ๊ตฌํ๊ธฐ ์ํด ๋ชฌํ ์นด๋ฅผ๋ก ์ถ์ ๋ฐฉ๋ฒ์ ๋ํ๋ธ ๊ฒ์ด๋ค. ๋ฐ์ดํฐ๋ฅผ ์์ฑํ ๋ค๋ถํฐ๋ ์์ ์์ ๋น์ทํ๊ธฐ ๋๋ฌธ์ ๊ณผ์ ์ ์๋ตํ์๋ค.
โท ์์ ๋ชจ๋ธ๋ก๋ถํฐ y ๋๋ phi์ ๋ํ ํ๋ฅ ์ ๊ตฌํ๊ธฐ ์ํด์๋ ์ฃผ๋ณํ(Marginalization)๋ฅผ ํด์ผํ๋๋ฐ, ์์น์ ์ผ๋ก ๊ณ์ฐํ๊ธฐ ์ํด์๋ ์ ๋ถ์ ํด์ผ ํ๋ค. ํ์ง๋ง ๋ชฌํ ์นด๋ฅผ๋ก ์ถ์ ์ ์ด์ฉํ๊ฒ ๋๋ฉด, ์๋ฎฌ๋ ์ด์ ์ ํตํด ์์ฑ๋ (y, phi)์ ์ฃผ๋ณํํ๊ณ ์ ํ๋ ๋ณ์๋ง์ ์ด์ฉํ์ฌ ์ถ์ ํ๋ฉด ๋๋ค. ์ฆ, ๊ฒฐํฉ๋ ๋ฐ์ดํฐ๊ฐ ์์ฑ๋์ด ์๋ค๋ฉด ์ฃผ๋ณํ์ ๋ํ ์ถ์ ์ ์ฝ๊ฒ ํ ์ ์๋ค.
Reference:
"Bayesian Statistics: From Concept to Data AnalysisTechniques and Models," Coursera, https://www.coursera.org/learn/bayesian-statistics/.
'Statistics > Bayesian Statistics' ์นดํ ๊ณ ๋ฆฌ์ ๋ค๋ฅธ ๊ธ
JAGS(Just Another Gibbs Sampler) ์ฌ์ฉ๋ฒ (0) | 2020.08.11 |
---|---|
๋ฉํธ๋กํด๋ฆฌ์ค ํค์ด์คํ ์ค ์๊ณ ๋ฆฌ์ฆ(Metropolis-Hastings algorithm) (1) | 2020.08.11 |
๊ทธ๋ํ ํํ(Graphical representation) (0) | 2020.08.09 |
์ ํ๋ฆฌ ์ฌ์ ๋ถํฌ(Jeffrey's prior) (0) | 2020.08.06 |
๋ฌด์ ๋ณด ์ฌ์ ๋ถํฌ(Non-informative prior distribution) (0) | 2020.08.05 |