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

๋ถ„๋ฅ˜ ์ „์ฒด๋ณด๊ธฐ

(86)
Leaflet์„ ์ด์šฉํ•œ ์ง€๋„ ์‹œ๊ฐํ™” R์˜ Leaflet์„ ์ด์šฉํ•˜์—ฌ ์ง€๋„๋ฅผ ์‹œ๊ฐํ™” ํ•ด๋ณด์ž. ์šฐ๋ฆฌ๋‚˜๋ผ์˜ ํ–‰์ •๊ตฌ์—ญ์„ ์‹œ๊ฐํ™” ํ•  ๊ฒƒ์ด๋‹ค. ์—ฌ๊ธฐ(www.gisdeveloper.co.kr/?p=2332)์—์„œ ์–ป์€ 2020๋…„ 5์›”์˜ ์‹œ๊ตฐ๊ตฌ ํ–‰์ •๊ตฌ์—ญ ๋ฐ์ดํ„ฐ๋ฅผ ์ด์šฉํ•  ๊ฒƒ์ด๋‹ค. In: library(leaflet) library(raster) library(htmltools) data_map = shapefile('../input/SIG.shp') โ–ท leaflet์€ ์ง€๋„์˜ ์‹œ๊ฐํ™”๋ฅผ ์œ„ํ•ด, raster์€ ํ™•์žฅ์ž๊ฐ€ shp์ธ ํŒŒ์ผ์„ ๋ถˆ๋Ÿฌ์˜ค๊ธฐ ์œ„ํ•ด, htmltools๋Š” ์‹œ๊ฐํ™”๋œ ์ง€๋„ ์œ„์— ๋‚˜ํƒ€๋‚˜๋Š” ํ…์ŠคํŠธ๋ฅผ ์ˆ˜์ •ํ•˜๊ธฐ ์œ„ํ•ด์„œ ์‚ฌ์šฉํ•  ๊ฒƒ์ด๋‹ค. In: head(data_map@data) head(data_map@plotOrder) # head(data_map@polyg..
๋ฒ ์ด์ง€์•ˆ ๋„คํŠธ์›Œํฌ(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 โ–ท ์—ฐ์†ํ˜• ..
Part 3 - 03. SQL ๊ธฐ๋ณธ๊ณผ ํ™œ์šฉ โ–ก ์˜ตํ‹ฐ๋งˆ์ด์ €(Optimizer) - SQL๋ฌธ์— ๋Œ€ํ•ด์„œ ์‹คํ–‰๊ณ„ํš์„ ์ˆ˜๋ฆฝ - ์—ฌ๋Ÿฌ ๊ฐœ์˜ ์‹คํ–‰ ๊ณ„ํš ์ค‘์—์„œ ์ตœ์ €๋น„์šฉ์„ ๊ฐ€์ง€๊ณ  ์žˆ๋Š” ๊ณ„ํš์„ ์„ ํƒํ•ด์„œ SQL ์‹คํ–‰ โ–ก ์˜ตํ‹ฐ๋งˆ์ด์ € ์—”์ง„ - Query Transformer: SQL๋ฌธ์„ ํšจ์œจ์ ์œผ๋กœ ์‹คํ–‰ํ•˜๊ธฐ ์œ„ํ•ด์„œ ์˜ตํ‹ฐ๋งˆ์ง€์–ด๊ฐ€ ๋ณ€ํ™˜ / ๋ณ€ํ™˜๋˜๊ธฐ ์ „๊ณผ ๊ฒฐ๊ณผ๋Š” ๋™์ผ - Estimator: ํ†ต๊ณ„์ •๋ณด๋ฅผ ์‚ฌ์šฉํ•˜์—ฌ SQL ์‹คํ–‰๋น„์šฉ์„ ๊ณ„์‚ฐ - Plan Generator: SQL์„ ์‹คํ–‰ํ•  ์‹คํ–‰ ๊ณ„ํš ์ˆ˜๋ฆฝ โ–ก ์ธ๋ฑ์Šค - ๋ฐ์ดํ„ฐ๋ฅผ ๋น ๋ฅด๊ฒŒ ๊ฒ€์ƒ‰ํ•  ์ˆ˜ ์žˆ๋Š” ๋ฐฉ๋ฒ•์„ ์ œ๊ณต โ–ก ์ธ๋ฑ์Šค ํŠธ๋ฆฌ ๊ตฌ์กฐ - Root, Branch, Double โ–ก Nested Loop - Random Access๊ฐ€ ๊ฐ€์žฅ ๋งŽ์ด ๋ฐœ์ƒ โ–ก Sort Merge - SORT๊ฐ€ ๊ฐ€์žฅ ๋งŽ์ด ๋ฐœ์ƒ โ–ก High Water mark - ..
Part 3 - 02. SQL ํ™œ์šฉ โ–ก EQUI ์กฐ์ธ - ๋‘ ๊ฐœ์˜ ํ…Œ์ด๋ธ” ๊ฐ„์— ์ผ์น˜ํ•˜๋Š” ๊ฒƒ์„ ์กฐ์ธ - "="์˜ ๋น„๊ต ์—ฐ์‚ฐ์ž๋ฅผ ์‚ฌ์šฉ - ISO ํ‘œ์ค€ SQL๋กœ INNER JOIN์„ ์‚ฌ์šฉํ•ด์•ผ ํ•จ โ–ก HASH JOIN - EQUI ์กฐ์ธ์—์„œ๋งŒ ๋‚˜ํƒ€๋‚˜๋Š” ์‹คํ–‰ ๊ณ„ํš โ–ก OUTER JOIN - ๋‘ ๊ฐœ์˜ ํ…Œ์ด๋ธ” ๊ฐ„์— ๊ต์ง‘ํ•ฉ์„ ์กฐํšŒํ•˜๊ณ  ํ•œ์ชฝ ํ…Œ์ด๋ธ”์—๋งŒ ์žˆ๋Š” ๋ฐ์ดํ„ฐ๋„ ํฌํ•จ์‹œ์ผœ์„œ ์กฐํšŒ - ์™ผ์ชฝ ํ…Œ์ด๋ธ”์— ์žˆ๋Š” ํ–‰๋„ ํฌํ•จํ•˜๋ฉด LEFT OUTER JOIN, ์˜ค๋ฅธ์ชฝ ํ…Œ์ด๋ธ”์— ์žˆ๋Š” ํ–‰๋„ ํฌํ•จํ•˜๋ฉด RIGHT OUTER JOIN, ์–‘์ชฝ ๋ชจ๋‘ ํฌํ•จ์‹œํ‚ค๋ฉด FULL OUTER JOIN์ด๋ผ ํ•จ โ–ก CROSS JOIN - ์กฐ์ธ๊ตฌ๊ฐ€ ์—†์ด ์กฐ์ธ์ด ๋˜๋ฉฐ, ์นดํ…Œ์‹œ์•ˆ ๊ณฑ์ด ๋ฐœ์ƒํ•˜์—ฌ ๋งŽ์€ ํ–‰์ด ์กฐํšŒ โ–ก UNION - ๋‘ ๊ฐœ์˜ ํ…Œ์ด๋ธ”์„ ํ•˜๋‚˜๋กœ ํ•ฉ์น˜๋ฉด์„œ ์ค‘๋ณต๋œ ๋ฐ์ดํ„ฐ๋ฅผ ์ œ๊ฑฐ / ์ด ๊ณผ์ •์—์„œ ์ •๋ ฌ..
Part 3 - 01. SQL ๊ธฐ๋ณธ โ–ก ๊ด€๊ณ„ํ˜• ๋ฐ์ดํ„ฐ๋ฒ ์ด์Šค ์ง‘ํ•ฉ ์—ฐ์‚ฐ๊ณผ ๊ด€๊ณ„ ์—ฐ์‚ฐ ์ง‘ํ•ฉ ์—ฐ์‚ฐ - ํ•ฉ์ง‘ํ•ฉ: ๋‘ ๊ฐœ์˜ ๋ฆด๋ ˆ์ด์…˜์„ ํ•˜๋‚˜๋กœ ํ•ฉ์นจ / ์ค‘๋ณต๋œ ํ–‰์€ ํ•œ ๋ฒˆ๋งŒ ์กฐํšŒ - ์ฐจ์ง‘ํ•ฉ: ๋ณธ๋ž˜ ๋ฆด๋ ˆ์ด์…˜์—๋Š” ์กด์žฌํ•˜๊ณ  ๋‹ค๋ฅธ ๋ฆด๋ ˆ์ด์…˜์—๋Š” ์กด์žฌ ํ•˜์ง€ ์•Š๋Š” ๊ฒƒ์„ ์กฐํšŒ - ๊ต์ง‘ํ•ฉ: ๋‘ ๊ฐœ์˜ ๋ฆด๋ ˆ์ด์…˜ ๊ฐ„์— ๊ณตํ†ต๋œ ๊ฒƒ์„ ์กฐํšŒ - ๊ณฑ์ง‘ํ•ฉ: ๊ฐ ๋ฆด๋ ˆ์ด์…˜์— ์กด์žฌํ•˜๋Š” ๋ชจ๋“  ๋ฐ์ดํ„ฐ์˜ ์กฐํ•ฉ ์—ฐ์‚ฐ ๊ด€๊ณ„ ์—ฐ์‚ฐ - ์„ ํƒ ์—ฐ์‚ฐ: ์กฐ๊ฑด์— ๋งž๋Š” ํ–‰๋งŒ ์กฐํšŒ - ํˆฌ์˜ ์—ฐ์‚ฐ: ์กฐ๊ฑด์— ๋งž๋Š” ์†์„ฑ๋งŒ์„ ์กฐํšŒ - ๊ฒฐํ•ฉ ์—ฐ์‚ฐ: ์—ฌ๋Ÿฌ ๋ฆด๋ ˆ์ด์…˜์˜ ๊ณตํ†ต๋œ ์†์„ฑ์„ ์‚ฌ์šฉํ•˜์—ฌ ์ƒˆ๋กœ์šด ๋ฆด๋ ˆ์ด์…˜ ์ƒ์„ฑ - ๋‚˜๋ˆ„๊ธฐ ์—ฐ์‚ฐ: ๊ธฐ์ค€ ๋ฆด๋ ˆ์ด์…˜์— ๋‚˜๋ˆ„๋Š” ๋ฆด๋ ˆ์ด์…˜์ด ๊ฐ€์ง€๊ณ  ์žˆ๋Š” ์†์„ฑ๊ณผ ๋™์ผํ•œ ๊ฐ’์„ ๊ฐ€์ง€๋Š” ํ–‰์„ ์ถ”์ถœํ•˜๊ณ  ๋‚˜๋ˆ„๋Š” ๋ฆด๋ ˆ์ด์…˜์˜ ์†์„ฑ์„ ์‚ญ์ œํ•œ ํ›„ ์ค‘๋ณต๋œ ํ–‰์„ ์ œ๊ฑฐํ•˜๋Š” ์—ฐ์‚ฐ โ–ก DDL(Data Definition La..
Part 2 - 02. ๋ฐ์ดํ„ฐ ๋ชจ๋ธ๊ณผ ์„ฑ๋Šฅ โ–ก ์ •๊ทœํ™” - ์ œ1์ •๊ทœํ™”: ๊ธฐ๋ณธํ‚ค๋ฅผ ์„ค์ • / ์‹๋ณ„์ž๋ฅผ ์ฐพ๋Š” ๊ณผ์ • - ์ œ2์ •๊ทœํ™”: ๊ธฐ๋ณธํ‚ค๊ฐ€ 2๊ฐœ ์ด์ƒ์˜ ์†์„ฑ์œผ๋กœ ์ด๋ฃจ์–ด์ง„ ๊ฒฝ์šฐ, ๋ถ€๋ถ„ ํ•จ์ˆ˜ ์ข…์†์„ฑ์„ ์ œ๊ฑฐ(๋ถ„ํ•ด) - ์ œ3์ •๊ทœํ™”: ๊ธฐ๋ณธํ‚ค(์ฃผ์‹๋ณ„์ž)๋ฅผ ์ œ์™ธํ•œ ์นผ๋Ÿผ ๊ฐ„์— ์ข…์†์„ฑ ์ œ๊ฑฐ / ์ดํ–‰ ํ•จ์ˆ˜ ์ข…์†์„ฑ ์ œ๊ฑฐ - BCNF: ์ผ๋ฐ˜ ์ปฌ๋Ÿผ์ด ํ›„๋ณดํ‚ค๋ฅผ ๊ฒฐ์ •ํ•˜๋Š” ๊ฒฝ์šฐ ๋งŒ์กฑํ•˜์ง€ ์•Š์Œ - ์ œ4์ •๊ทœํ™”: ๋‹ค์ค‘ ๊ฐ’ ์ข…์†์„ฑ์„ ์ œ๊ฑฐ - ์ œ5์ •๊ทœํ™”: ์กฐ์ธ์— ์˜ํ•ด์„œ ์ข…์†์„ฑ์ด ๋ฐœ์ƒ๋˜๋Š” ๊ฒฝ์šฐ ๋ถ„ํ•ด โ–ก ์ •๊ทœํ™”์˜ ๋ฌธ์ œ์  - ๋ฐ์ดํ„ฐ ์กฐํšŒ ์‹œ์— ์กฐ์ธ์„ ์œ ๋ฐœํ•˜๊ธฐ ๋•Œ๋ฌธ์— CPU์™€ ๋ฉ”๋ชจ๋ฆฌ๋ฅผ ๋งŽ์ด ์‚ฌ์šฉ - ์ค‘์ฒฉ๋œ ๋ฃจํ”„ โ–ก ๋ฐ˜์ •๊ทœํ™” - ๋ฐ์ดํ„ฐ์˜ ์ค‘๋ณต์„ ํ—ˆ์šฉํ•˜์—ฌ ์„ฑ๋Šฅ์„ ํ–ฅ์ƒ ์‹œํ‚ค๋Š” ๋ฐฉ๋ฒ• - SELECT๋ฌธ์˜ ์‹คํ–‰ ์†๋„๊ฐ€ ๋Š๋ ค์ง„ ๊ฒฝ์šฐ, ์ง‘๊ณ„ ์ •๋ณด๊ฐ€ ์š”๊ตฌ๋˜๋Š” ๊ฒฝ์šฐ, ํŠน์ • ๋ฒ”์œ„๋ฅผ ์ž์ฃผ ์กฐํšŒํ•˜๋Š” ๊ฒฝ์šฐ์— ์‚ฌ์šฉ - ๋ฐ์ด..
Part 2 - 01. ๋ฐ์ดํ„ฐ ๋ชจ๋ธ๋ง โ–ก ๋ฐ์ดํ„ฐ ๋ชจ๋ธ๋ง์˜ ์ฃผ์š” ํŠน์ง• - ์ถ”์ƒํ™”: ํ˜„์‹ค์„ธ๊ณ„๋ฅผ ๊ฐ„๋žตํžˆ ํ‘œํ˜„ - ๋‹จ์ˆœํ™”: ์ดํ•ดํ•˜๊ธฐ ์‰ฝ๋„๋ก ํ‘œํ˜„ - ๋ช…ํ™•ํ™”: ๋ช…ํ™•ํ•œ ์˜๋ฏธ ์ „๋‹ฌ โ–ก ๋ฐ์ดํ„ฐ ๋ชจ๋ธ๋ง ์ ˆ์ฐจ 1. ๊ฐœ๋…์  ๋ชจ๋ธ๋ง: ์—…๋ฌด ์ธก๋ฉด์—์„œ ๋ชจ๋ธ๋ง / ๊ธฐ์ˆ ์  ์šฉ์–ด ์‚ฌ์šฉ ์ง€์–‘ 2. ๋…ผ๋ฆฌ์  ๋ชจ๋ธ๋ง: ์‹๋ณ„์ž ๋„์ถœ ๋ฐ ํ•„์š”ํ•œ ๋ฆด๋ ˆ์ด์…˜ ์ •์˜ / ์ •๊ทœํ™” ์ˆ˜ํ–‰ 3. ๋ฌผ๋ฆฌ์  ๋ชจ๋ธ๋ง: ํ…Œ์ด๋ธ”, ์ธ๋ฑ์Šค, ํ•จ์ˆ˜ ๋“ฑ ์ƒ์„ฑ / ์„ฑ๋Šฅ, ๋ณด์•ˆ, ๊ฐ€์šฉ์„ฑ ๋“ฑ์„ ๊ณ ๋ คํ•˜์—ฌ ๋ฐ์ดํ„ฐ๋ฒ ์ด์Šค ๊ตฌ์ถ• โ–ก ๋ฐ์ดํ„ฐ ๋ชจ๋ธ์˜ 3๊ฐ€์ง€ ๊ด€์  - ๋ฐ์ดํ„ฐ: ๋น„์ฆˆ๋‹ˆ์Šค ํ”„๋กœ์„ธ์Šค์—์„œ ์‚ฌ์šฉ๋˜๋Š” ๋ฐ์ดํ„ฐ - ํ”„๋กœ์„ธ์Šค: ๋น„์ฆˆ๋‹ˆ์Šค ํ”„๋กœ์„ธ์Šค์—์„œ ์ˆ˜ํ–‰๋˜๋Š” ์ž‘์—… - ๋ฐ์ดํ„ฐ์™€ ํ”„๋กœ์„ธ์Šค: ํ”„๋กœ์„ธ์Šค์™€ ๋ฐ์ดํ„ฐ ๊ฐ„์˜ ๊ด€๊ณ„ ์˜๋ฏธ โ–ก ERD ์ž‘์„ฑ ์ ˆ์ฐจ 1. ์—”ํ„ฐํ‹ฐ ๋„์ถœ ๋ฐ ๊ทธ๋ฆผ 2. ์—”ํ„ฐํ‹ฐ ๋ฐฐ์น˜ 3. ์—”ํ„ฐํ‹ฐ ๊ฐ„์— ๊ด€๊ณ„ ์„ค์ • 4. ๊ด€๊ณ„ ์„œ์ˆ  5...
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: ๋ชจ๋“  ๋ฐ์ดํ„ฐ๊ฐ€ ๋…๋ฆฝ์ด๋ผ ๊ฐ€์ •ํ•˜๊ณ , ํ•˜๋‚˜์˜ ํฌ์•„์†ก ๋ชจ๋ธ์„ ๋งŒ๋“œ๋Š” ๊ฒƒ์ด๋‹ค. ์ด๋Š” ๊ฐ ๊ณต์žฅ๋ณ„ ์ฐจ์ด์™€ ๊ฐ™์€ ๊ณต์žฅ์—์„œ ์ƒ์‚ฐ๋œ ์น™์ด‰์˜ ๋น„์Šทํ•œ ํŠน์„ฑ์„ ๊ณ ๋ คํ•˜์ง€ ๋ชปํ•œ๋‹ค๋Š” ํ•œ๊ณ„๊ฐ€ ์žˆ๋‹ค. ..