๋ณธ๋ฌธ ๋ฐ”๋กœ๊ฐ€๊ธฐ

Statistics

(30)
๋ฒ ์ด์ง€์•ˆ ๋„คํŠธ์›Œํฌ(Bayesian network)๋ฅผ ํ™œ์šฉํ•œ King County์˜ ์ง‘๊ฐ’ ๋ถ„์„ ๋ฒ ์ด์ง€์•ˆ ๋„คํŠธ์›Œํฌ(Bayesian network)๋ฅผ ํ™œ์šฉํ•˜์—ฌ King County์˜ ์ง‘๊ฐ’์— ์˜ํ–ฅ์„ ๋ฏธ์น˜๋Š” ๋‹ค์–‘ํ•œ ์š”์†Œ์˜ ์ธ๊ณผ๊ด€๊ณ„๋ฅผ ํ™•์ธํ•˜๊ณ , ๋ถ„์„ํ•˜๋Š” ๊ฒƒ์ด ์ด ํ”„๋กœ์ ํŠธ์˜ ๋ชฉ์ ์ด๋‹ค. ๋ฐ์ดํ„ฐ์˜ ์ถœ์ฒ˜๋Š” ์—ฌ๊ธฐ(www.kaggle.com/harlfoxem/housesalesprediction)์ด๊ณ , ์•„๋ž˜์˜ ๊ตฌ์„ฑ ์ˆœ์„œ๋Œ€๋กœ ๋ถ„์„ ๋ฐ ๋ชจ๋ธ๋ง ๊ณผ์ •์„ ์ˆ˜ํ–‰ํ•  ๊ฒƒ์ด๋‹ค. ๋ชจ๋“  ์ฝ”๋“œ๋Š” R๋กœ ์ž‘์„ฑ๋˜์—ˆ๋‹ค. 1. ๋ฐ์ดํ„ฐ ์ „์ฒ˜๋ฆฌ 2. ์‹œ๊ฐํ™” ๋ฐ ์ƒ๊ด€๊ด€๊ณ„ ๋ถ„์„ 3. ๋‹ค์ค‘ํšŒ๊ท€๋ถ„์„ 4. ๋ฒ ์ด์ง€์•ˆ ๋„คํŠธ์›Œํฌ ๋ชจ๋ธ๋ง 1. ๋ฐ์ดํ„ฐ ์ „์ฒ˜๋ฆฌ In: # Statistic library(car) # Data manipulation library(dplyr) library(tidyr) # Visualization library(ggplot2) librar..
๋งค๊ฐœํšจ๊ณผ(Mediating effect) โ–ก ๋งค๊ฐœํšจ๊ณผ(Mediating effect) - ๋…๋ฆฝ๋ณ€์ˆ˜๊ฐ€ ์ข…์†๋ณ€์ˆ˜์— ์œ ์˜ํ•œ ์˜ํ–ฅ์„ ๋ฏธ์น  ๋•Œ, ๊ทธ ์‚ฌ์ด์— ๋งค๊ฐœ๋ณ€์ˆ˜๋ฅผ ํ†ตํ•ด ๊ทธ ์˜ํ–ฅ์ด ์ „๋‹ฌ๋˜๋Š” ๊ฒฝ์šฐ - X(๋…๋ฆฝ๋ณ€์ˆ˜) โ†’ M(๋งค๊ฐœ๋ณ€์ˆ˜) โ†’ Y(์ข…์†๋ณ€์ˆ˜) โ–ก ๋งค๊ฐœํšจ๊ณผ์˜ ์ข…๋ฅ˜ (1) ๋ถ€๋ถ„๋งค๊ฐœ ํšจ๊ณผ (2) ์™„์ „๋งค๊ฐœ ํšจ๊ณผ โ–ก ๋งค๊ฐœํšจ๊ณผ ๊ฒ€์ฆ๋ฐฉ๋ฒ• - Baron & Kenny (1986) ๋ฐฉ๋ฒ• [1๋‹จ๊ณ„] X โ†’ M [2๋‹จ๊ณ„] X โ†’ Y [3๋‹จ๊ณ„] X + M โ†’ Y (1) ๋ถ€๋ถ„๋งค๊ฐœ ํšจ๊ณผ ๊ฒ€์ฆ [1๋‹จ๊ณ„] M = a + b1*X โ†’ b1 ์œ ์˜ [2๋‹จ๊ณ„] Y = a + phi*X โ†’ phi ์œ ์˜ [3๋‹จ๊ณ„] Y = a + b2*X + b3*M โ†’ b3, b2 ์œ ์˜ โ–ท ์œ„์˜ 3๋‹จ๊ณ„์˜ ๊ฐ ๊ณ„์ˆ˜์˜ ์œ ์˜ ์กฐ๊ฑด์„ ๋งŒ์กฑํ•  ๊ฒฝ์šฐ, ๋ถ€๋ถ„๋งค๊ฐœํšจ๊ณผ๊ฐ€ ๋‚˜ํƒ€๋‚œ๋‹ค๊ณ  ๋ณผ ์ˆ˜ ์žˆ๋‹ค. (2) ์™„์ „๋งค๊ฐœ ํšจ๊ณผ..
๋ฒ ์ด์ง€์•ˆ ๋„คํŠธ์›Œํฌ(Bayesian network) (3) ๋ณธ ํฌ์ŠคํŒ…์€ ์นด์ด์ŠคํŠธ ๋ฌธ์ผ์ฒ  ๊ต์ˆ˜๋‹˜์˜ ์ธ๊ณต์ง€๋Šฅ ๋ฐ ๊ธฐ๊ณ„ํ•™์Šต ๊ฐœ๋ก  2์˜ ๋ฒ ์ด์ง€์•ˆ ๋„คํŠธ์›Œํฌ(Bayesian network) ๊ฐ•์˜ ๋‚ด์šฉ์„ ์ •๋ฆฌํ•œ ๊ฒƒ์ด๋‹ค. ๋‹ค๋ฃฐ ๋‚ด์šฉ์€ ๋‹ค์Œ๊ณผ ๊ฐ™๋‹ค. 1. Potential functions 2. Absorption in clique graph 3. Example of belief propagation 1. Potential functions โ–ท Potential function์€ ์ž ์žฌ์ ์œผ๋กœ ํ™•๋ฅ ์ด ๋˜๋Š” ํ•จ์ˆ˜๋กœ์จ, ์•„์ง ํ™•๋ฅ ์˜ ์กฐ๊ฑด์„ ๋งŒ์กฑํ•˜๊ธฐ์— ์ถฉ๋ถ„ํ•˜์ง€ ์•Š์€ ํ•จ์ˆ˜๋ฅผ ์˜๋ฏธํ•œ๋‹ค. ์ด ํ•จ์ˆ˜๋Š” Belief propagation์„ ํ†ตํ•ด ํ™•๋ฅ ๋กœ์จ ๋ฐ”๋€Œ๊ฒŒ ๋œ๋‹ค. ์ด์— ๋Œ€ํ•œ ๋‚ด์šฉ์€ ์ดํ›„์— ๋‹ค๋ฃจ๊ธฐ๋กœ ํ•˜๊ฒ ๋‹ค. โ–ท ์œ„์˜ ์˜ˆ๋Š” Potential function์„ ์„ค๋ช…ํ•˜๊ธฐ ์‰ฝ๊ฒŒ ๋‚˜ํƒ€๋‚ธ ๋ฒ ์ด์ง€์•ˆ ๋„คํŠธ์›Œํฌ..
๋ฒ ์ด์ง€์•ˆ ๋„คํŠธ์›Œํฌ(Bayesian network) (2) ๋ณธ ํฌ์ŠคํŒ…์€ ์นด์ด์ŠคํŠธ ๋ฌธ์ผ์ฒ  ๊ต์ˆ˜๋‹˜์˜ ์ธ๊ณต์ง€๋Šฅ ๋ฐ ๊ธฐ๊ณ„ํ•™์Šต ๊ฐœ๋ก  2์˜ ๋ฒ ์ด์ง€์•ˆ ๋„คํŠธ์›Œํฌ(Bayesian network) ๊ฐ•์˜ ๋‚ด์šฉ์„ ์ •๋ฆฌํ•œ ๊ฒƒ์ด๋‹ค. ๋‹ค๋ฃฐ ๋‚ด์šฉ์€ ๋‹ค์Œ๊ณผ ๊ฐ™๋‹ค. 1. Factorization of Bayesian network 2. Conditional probability 3. Most probable assignment 4. Marginalization and elimination 5. Variable elimination 1. Factorization of Bayesian network โ–ท ๋ฒ ์ด์ง€์•ˆ ๋„คํŠธ์›Œํฌ์˜ Factorization์€ Full joint distribution์„ ๊ตฌํ•  ๋•Œ, ๊ฐœ๋ณ„ ๋…ธ๋“œ์˜ Conditional probability์˜ Condition์— ํฌํ•จ๋˜๋Š” ๋…ธ๋“œ๋ฅผ ๊ฐ..
๋ฒ ์ด์ง€์•ˆ ๋„คํŠธ์›Œํฌ(Bayesian network) (1) ๋ณธ ํฌ์ŠคํŒ…์€ ์นด์ด์ŠคํŠธ ๋ฌธ์ผ์ฒ  ๊ต์ˆ˜๋‹˜์˜ ์ธ๊ณต์ง€๋Šฅ ๋ฐ ๊ธฐ๊ณ„ํ•™์Šต ๊ฐœ๋ก  2์˜ ๋ฒ ์ด์ง€์•ˆ ๋„คํŠธ์›Œํฌ(Bayesian network) ๊ฐ•์˜ ๋‚ด์šฉ์„ ์ •๋ฆฌํ•œ ๊ฒƒ์ด๋‹ค. ๋‹ค๋ฃฐ ๋‚ด์šฉ์€ ๋‹ค์Œ๊ณผ ๊ฐ™๋‹ค. 1. Conditional vs. Marginal independence 2. Bayesian network 3. Interpretation of Bayesian network 4. Typical local structures 5. Bayes ball algorithm 1. Conditional vs. Marginal independence โ–ท Conditional independence์™€ Marginal independence๋Š” ๋‘˜ ๋‹ค ๋…๋ฆฝ์„ ์˜๋ฏธํ•˜์ง€๋งŒ, ์•ฝ๊ฐ„์˜ ์ฐจ์ด๊ฐ€ ์žˆ๋‹ค. Marginal independence๋Š” P(A|B) ..
ํ˜ผํ•ฉ ๋ชจ๋ธ(Mixture model) ๋‹ค์Œ์˜ ๋ฐ์ดํ„ฐ์˜ ํžˆ์Šคํ† ๊ทธ๋žจ์„ ํ™•์ธํ•˜๊ณ , ์ด๋ฅผ ์ ํ•ฉํ•  ๋ถ„ํฌ์— ๋Œ€ํ•˜์—ฌ ์ƒ๊ฐํ•ด ๋ณด์ž. In: data = read.csv('../input/mixture.csv', header = F) y = data$V1 n = length(y) hist(y, breaks = 20) Out: โ–ท ์ผ๋ฐ˜์ ์ธ ๋ถ„ํฌ์™€๋Š” ๋‹ค๋ฅด๊ฒŒ -2์™€ 1 ๊ทผ์ฒ˜์— ๋‘ ๊ฐœ์˜ ๋ด‰์šฐ๋ฆฌ๋ฅผ ํ˜•์„ฑํ•˜๊ณ  ์žˆ๋Š” ๊ฒƒ์„ ํ™•์ธํ•  ์ˆ˜ ์žˆ๋‹ค. ์šฐ๋ฆฌ๊ฐ€ ์•Œ๊ณ  ์žˆ๋Š” ์ •๊ทœ๋ถ„ํฌ, ์ง€์ˆ˜๋ถ„ํฌ, ๊ฐ๋งˆ๋ถ„ํฌ๋Š” ๋‹จ๋ด‰ํ˜•ํƒœ๋ฅผ ๋„๊ณ  ์žˆ๋‹ค. ๋”ฐ๋ผ์„œ ์ด๋ฅผ ์œ„์˜ ๋ฐ์ดํ„ฐ์— ์ ํ•ฉํ•  ๊ฒฝ์šฐ, ๋‘ ๊ฐœ์˜ ๋ด‰์šฐ๋ฆฌ์— ๋Œ€ํ•ด ์ ํ•ฉํ•œ ๋ถ„ํฌ๋ฅผ ์–ป์„ ์ˆ˜ ์—†๋‹ค. โ–ถ ํ˜ผํ•ฉ ๋ชจ๋ธ(Mixture model)์€ ๋‘ ๊ฐœ์ด์ƒ์˜ ๋ถ„ํฌ๋ฅผ ํ•ฉ์ณ์„œ ๋งŒ๋“  ๋ชจ๋ธ๋กœ ๊ธฐ์กด ๋ถ„ํฌ์— ๋น„ํ•˜์—ฌ ์ž์œ ๋„ ๋†’์€ ์ ํ•ฉ์ด ๊ฐ€๋Šฅํ•˜๋‹ค๋Š” ์žฅ์ ์„ ๊ฐ€์ง€๊ณ  ์žˆ๋‹ค. ๋˜ํ•œ ๋ณต์žกํ•œ ๋ถ„..
์ž„์˜์ ˆํŽธ ๋ชจ๋ธ(Random intercept model) R์˜ car ํŒจํ‚ค์ง€์˜ Leinhardt ๋ฐ์ดํ„ฐ๋ฅผ ์ด์šฉํ•˜์—ฌ ์ž„์˜์ ˆํŽธ ๋ชจ๋ธ(Random intercept model)์„ ๋ชจ๋ธ์„ ๋งŒ๋“ค์–ด๋ณด์ž. ์ˆ˜ํ–‰๊ณผ์ •์€ ๋‹ค์Œ๊ณผ ๊ฐ™๋‹ค. 1. ๋ฐ์ดํ„ฐ ํ™•์ธ 2. ๋ชจ๋ธ๋ง 3. ๋ชจ๋ธํ™•์ธ 1. ๋ฐ์ดํ„ฐ ํ™•์ธ In: library(car) data('Leinhardt') pairs(Leinhardt) head(Leinhardt) Out: income infant region oil Australia 3426 26.7 Asia no Austria 3350 23.7 Europe no Belgium 3346 17.0 Europe no Canada 4751 16.8 Americas no Denmark 5029 13.5 Europe no Finland 3312 10.1 Europe no โ–ท ์—ฐ์†ํ˜• ..
Bayesian linear model for New York air quality measurements ์บ˜๋ฆฌํฌ๋‹ˆ์•„ ๋Œ€ํ•™๊ต์˜ "Bayesian Statistics: Techniques and Models"์„ ์ด์ˆ˜ํ•˜๊ธฐ ์œ„ํ•œ ํ”„๋กœ์ ํŠธ ๊ฒฐ๊ณผ๋ฌผ์ด๋‹ค. ########################## # setting & loading data # ########################## set.seed(777) library(dplyr) library(tidyr) library(ggplot2) library(GGally) library(rjags) theme_set(theme_light() + theme(plot.title = element_text(face = 'bold', colour = 'grey10'), plot.subtitle = element_text(colour = 'grey25'), panel...
๊ณ„์ธต์  ๋ชจ๋ธ(Hierarchical model) ๋‹ค์Œ์˜ ์˜ˆ์ œ๋ฅผ ํ†ตํ•ด ๊ณ„์ธต์  ๋ชจ๋ธ(Hierarchical model)์˜ ํŠน์ง•์„ ์•Œ์•„๋ณด๊ณ , ๋ชจ๋ธ๋ง ๊ฒฐ๊ณผ์— ๋Œ€ํ•ด ๋ถ„์„ํ•ด ๋ณด์ž. ๋ฌธ์ œ) ์น™์ด‰์„ ์ƒ์‚ฐํ•˜๋Š” 5๊ฐœ์˜ ๊ณต์žฅ์ด ์žˆ๋‹ค. ๊ฐ ๊ณต์žฅ์—์„œ ์ƒ์‚ฐ๋œ ์น™์ด‰ ๊ณผ์ž 1๊ฐœ์— ๋ฐ•ํ˜€ ์žˆ๋Š” ์ดˆ์ฝ”์นฉ ๊ฐœ์ˆ˜๊ฐ€ ํฌ์•„์†ก ๋ถ„ํฌ๋ฅผ ๋”ฐ๋ฅด๊ณ , ํฌ์•„์†ก ๋ถ„ํฌ์˜ ๋ชจ์ˆ˜๋Š” ๊ฐ๋งˆ๋ถ„ํฌ๋ฅผ ๋”ฐ๋ฅธ๋‹ค. cookies ๋ฐ์ดํ„ฐ๋ฅผ ์ด์šฉํ•˜์—ฌ ์น™์ด‰ ๊ณผ์ž๊ฐ€ ์ƒ์‚ฐ๋  ๋•Œ, ๋ฐ•ํ˜€ ์žˆ๋Š” ์ดˆ์ฝ”์นฉ ๊ฐœ์ˆ˜์— ๋Œ€ํ•œ ๋ชจ๋ธ๋ง์„ ์ˆ˜ํ–‰ํ•œ ํ›„, ๋ถ„์„ํ•˜์‹œ์˜ค. ํ’€์ด) โ–ท ์œ„์˜ ๋ฌธ์ œ์— ๋Œ€ํ•ด ํฌ๊ฒŒ 3๊ฐ€์ง€ ๋ชจ๋ธ๋ง ๋ฐฉ๋ฒ•์œผ๋กœ ์ ‘๊ทผ์ด ๊ฐ€๋Šฅํ•˜๋‹ค. (1) Fully independent model: ๋ชจ๋“  ๋ฐ์ดํ„ฐ๊ฐ€ ๋…๋ฆฝ์ด๋ผ ๊ฐ€์ •ํ•˜๊ณ , ํ•˜๋‚˜์˜ ํฌ์•„์†ก ๋ชจ๋ธ์„ ๋งŒ๋“œ๋Š” ๊ฒƒ์ด๋‹ค. ์ด๋Š” ๊ฐ ๊ณต์žฅ๋ณ„ ์ฐจ์ด์™€ ๊ฐ™์€ ๊ณต์žฅ์—์„œ ์ƒ์‚ฐ๋œ ์น™์ด‰์˜ ๋น„์Šทํ•œ ํŠน์„ฑ์„ ๊ณ ๋ คํ•˜์ง€ ๋ชปํ•œ๋‹ค๋Š” ํ•œ๊ณ„๊ฐ€ ์žˆ๋‹ค. ..
๋ฒ ์ด์ง€์•ˆ ํฌ์•„์†ก ํšŒ๊ท€(Bayesian poisson regression) ๋‹จ์ˆœ ํฌ์•„์†ก ํšŒ๊ท€(Simple poisson regression) ๋ชจ๋ธ์€ ๋‹ค์Œ๊ณผ ๊ฐ™๋‹ค. โ–ท ๊ฐ€๋Šฅ๋„๋Š” ํฌ์•„์†ก ๋ถ„ํฌ๋กœ ์ •ํ•˜๊ณ , ๊ฐ€๋Šฅ๋„ ๋ชจ์ˆ˜์˜ ๋กœ๊ทธ๋ฅผ ์ทจํ•œ ๊ฒƒ์— ๋Œ€ํ•˜์—ฌ ๋…๋ฆฝ๋ณ€์ˆ˜์˜ ์„ ํ˜•๊ฒฐํ•ฉ์œผ๋กœ ์ •์˜ํ•œ๋‹ค. ์ด๋•Œ, ์œ„์˜ ์‹์—์„œ๋Š” ํ•˜๋‚˜์˜ ๋…๋ฆฝ๋ณ€์ˆ˜์— ๋Œ€ํ•œ ์„ ํ˜•๊ฒฐํ•ฉ์œผ๋กœ ํ‘œํ˜„ํ•˜์˜€์ง€๋งŒ, ๋…๋ฆฝ๋ณ€์ˆ˜๊ฐ€ ์—ฌ๋Ÿฌ๊ฐœ์ด๋ฉด ์ด ๋…๋ฆฝ๋ณ€์ˆ˜๋“ค์˜ ์„ ํ˜•๊ฒฐํ•ฉ์„ ํ†ตํ•ด ๊ฐ€๋Šฅ๋„ ๋ชจ์ˆ˜์˜ ๋กœ๊ทธ๋ฅผ ์ทจํ•œ ๊ฐ’์— ๋Œ€ํ•˜์—ฌ ์ •์˜ํ•œ๋‹ค. โ–ท ํฌ์•„์†ก ํšŒ๊ท€ ๋ชจ๋ธ์˜ ์˜ˆ์ธก์€ ๊ฐœ๋ณ„ ๋ฐ์ดํ„ฐ์˜ ๊ฐ€๋Šฅ๋„์˜ ํ‰๊ท , ์ฆ‰, ๊ฐ€๋Šฅ๋„์˜ ๋ชจ์ˆ˜๋ฅผ ํ†ตํ•ด ์ด๋ฃจ์–ด์ง„๋‹ค. โ–ท ๋ฒ ์ด์ง€์•ˆ ํฌ์•„์†ก ํšŒ๊ท€(Bayesian poisson regression)๋Š” ๋…๋ฆฝ๋ณ€์ˆ˜์™€ ์„ ํ˜•๊ฒฐํ•ฉ๋œ ๋ชจ์ˆ˜ beta์˜ ์‚ฌ์ „๋ถ„ํฌ๋ฅผ ์ •์˜ํ•œ๋‹ค๋Š” ์ ์—์„œ ํฌ์•„์†ก ํšŒ๊ท€์™€ ์ฐจ์ด๊ฐ€ ์žˆ๋‹ค. R์˜ COUNT ํŒจํ‚ค์ง€์˜ badhealth ๋ฐ์ดํ„ฐ๋ฅผ ์ด์šฉํ•˜์—ฌ ๋ฒ ์ด์ง€..
๋ฒ ์ด์ง€์•ˆ ๋กœ์ง€์Šคํ‹ฑ ํšŒ๊ท€(Bayesian logistic regression) ๋‹จ์ˆœ ๋กœ์ง€์Šคํ‹ฑ ํšŒ๊ท€(Simple logistic regression) ๋ชจ๋ธ์€ ๋‹ค์Œ๊ณผ ๊ฐ™๋‹ค. โ–ท ๊ฐ€๋Šฅ๋„๋Š” ๋ฒ ๋ฅด๋ˆ„์ด ๋ถ„ํฌ๋กœ ์ •ํ•˜๊ณ , ๊ฐ€๋Šฅ๋„ ๋ชจ์ˆ˜์˜ ๋กœ์ง“(Logit)์„ ๋…๋ฆฝ๋ณ€์ˆ˜์˜ ์„ ํ˜•๊ฒฐํ•ฉ์œผ๋กœ ์ •์˜ํ•œ๋‹ค. ์ด๋•Œ, ์œ„์˜ ์‹์—์„œ๋Š” ํ•˜๋‚˜์˜ ๋…๋ฆฝ๋ณ€์ˆ˜์— ๋Œ€ํ•œ ์„ ํ˜•๊ฒฐํ•ฉ์œผ๋กœ ํ‘œํ˜„ํ•˜์˜€์ง€๋งŒ, ๋…๋ฆฝ๋ณ€์ˆ˜๊ฐ€ ์—ฌ๋Ÿฌ๊ฐœ์ด๋ฉด ์ด ๋…๋ฆฝ๋ณ€์ˆ˜๋“ค์˜ ์„ ํ˜•๊ฒฐํ•ฉ์„ ํ†ตํ•ด ๋กœ์ง“์„ ์ •์˜ํ•œ๋‹ค. โ–ท ๋กœ์ง€์Šคํ‹ฑ ํšŒ๊ท€์˜ ์˜ˆ์ธก์€ ๊ฐœ๋ณ„ ๋ฐ์ดํ„ฐ์˜ ๊ฐ€๋Šฅ๋„์˜ ํ‰๊ท , ์ฆ‰ ๊ฐ€๋Šฅ๋„์˜ ๋ชจ์ˆ˜๋ฅผ ํ†ตํ•ด ์ด๋ฃจ์–ด์ง„๋‹ค. โ–ถ ๋ฒ ์ด์ง€์•ˆ ๋กœ์ง€์Šคํ‹ฑ ํšŒ๊ท€(Bayesian logistic regression)๋Š” ๋กœ์ง“์„ ๋‚˜ํƒ€๋‚ด๋Š” ๋…๋ฆฝ๋ณ€์ˆ˜์˜ ์„ ํ˜•๊ฒฐํ•ฉ๋œ ๋ชจ์ˆ˜์˜ ์‚ฌ์ „๋ถ„ํฌ๋ฅผ ์ •์˜ํ•œ๋‹ค๋Š” ์ ์—์„œ ๋กœ์ง€์Šคํ‹ฑ ํšŒ๊ท€์™€ ์ฐจ์ด๊ฐ€ ์žˆ๋‹ค. R์˜ boot ํŒจํ‚ค์ง€์˜ urine ๋ฐ์ดํ„ฐ๋ฅผ ์ด์šฉํ•˜์—ฌ ๋ฒ ์ด์ง€์•ˆ ๋กœ์ง€์Šคํ‹ฑ ํšŒ๊ท€ ๋ถ„์„์„ ์ˆ˜ํ–‰ํ•  ๊ฒƒ..
DIC(Deviance Information Criterion) ๋ฒ ์ด์ง€์•ˆ ๋ชจ๋ธ์—์„œ๋Š” ๋ชจ๋ธ ์„ ํƒ์„ ์œ„ํ•œ ์ •๋ณด์˜ ๊ธฐ์ค€์œผ๋กœ์จ DIC(Deviance Information Criterion)์„ ์ œ์‹œํ•˜๊ณ  ์žˆ๋‹ค. DIC์˜ ๊ณต์‹์€ ๋‹ค์Œ๊ณผ ๊ฐ™๋‹ค. โ–ท theta hat์€ ๊ฐ ๋ชจ์ˆ˜์˜ ์‚ฌํ›„ํ‰๊ท ์ด๊ณ , ์‚ฌํ›„๋ถ„ํฌ๋กœ๋ถ€ํ„ฐ ์–ป์€ theta hat์˜ ๋กœ๊ทธ ๊ฐ€๋Šฅ๋„์™€ ์‹ค์งˆ์ ์ธ ๋ชจ์ˆ˜์˜ ๊ฐฏ์ˆ˜(Effective number of parameters)๋ฅผ ๊ณ ๋ คํ•˜์—ฌ DIC๋ฅผ ๊ตฌํ•  ์ˆ˜ ์žˆ๋‹ค. โ–ถ ์‹ค์งˆ์ ์ธ ๋ชจ์ˆ˜์˜ ๊ฐฏ์ˆ˜๋Š” ๋ชจ๋ธ์˜ ์ถ”์ •์น˜ ์‚ฌ์ด์— ์ƒ๊ด€(Correlation)์„ ๊ณ ๋ คํ•˜๊ธฐ ์œ„ํ•œ ๊ฒƒ์ด๋‹ค. ์˜ˆ๋ฅผ ๋“ค์–ด, ๋ชจ๋ธ์˜ ์ถ”์ •์น˜ ์‚ฌ์ด์— 0.99์˜ ์ƒ๊ด€์ด ์กด์žฌํ•œ๋‹ค๋ฉด ์ด๋ฅผ ๋…๋ฆฝ์ ์ธ ๋ชจ์ˆ˜๋กœ ๊ฐ„์ฃผํ•œ๋‹ค๋ฉด ํ•ฉ๋ฆฌ์ ์ด์ง€ ์•Š์„ ๊ฒƒ์ด๋‹ค. R์˜ car ํŒจํ‚ค์ง€์˜ Leihardt ๋ฐ์ดํ„ฐ๋ฅผ ์ด์šฉํ•œ ๋‘ ๋ชจ๋ธ์„ DIC๋ฅผ ํ†ตํ•ด ๋น„๊ตํ•˜์—ฌ๋ณด์ž. In: lib..