์ผ | ์ | ํ | ์ | ๋ชฉ | ๊ธ | ํ |
---|---|---|---|---|---|---|
1 | 2 | 3 | 4 | 5 | 6 | 7 |
8 | 9 | 10 | 11 | 12 | 13 | 14 |
15 | 16 | 17 | 18 | 19 | 20 | 21 |
22 | 23 | 24 | 25 | 26 | 27 | 28 |
29 | 30 |
- ๋ค์ด์ดํธ๋๋ด์ผ๋ถํฐ
- ๋ถํด๋ฌ๋ฒ
- ์ด๋ถ๋ฆฌ๋๊ธฐ
- ๋น ๋ฐ์ดํฐ์ฒญ๋ ์ธ์ฌ
- ์ซ๋ํ๋ง์นด๋กฑ
- ํธ์์ ๋์ ํธ
- ์ผ์
- ํฐ์คํ ๋ฆฌ์ฑ๋ฆฐ์ง
- ๋ค๋์๋ฃจํด
- ์จ์ ๋ง์นด๋กฑ
- ๊ฐํ์ ๋จ์
- ํธ์์ ๋ง์นด๋กฑ
- ๋ค์ด์ดํธ์ต๊ด
- ์๋ฐ์ดํด๋์ค
- ์์ ๋ถ์นดํ
- ๋ ์
- ๋น ๋ฐ์ดํฐ
- ๋ถํด๋ฝ
- ์ฐ๋ฆฌ๊ฐ๋น์์๋๋ก๊ฐ์์๋ค๋ฉด
- ์์ดํจ๋ํค๋ณด๋
- ์์ค24
- ์์ฃผ์นดํ
- r
- ์ด๋๋ฐดํธ์บ๋ฆฐ๋
- ๋ง์ผ์ปฌ๋ฆฌ
- ์ค๋ธ์
- ์ํ
- ํธ์์
- ํค๋ณด๋์ผ์ด์ค
- ์์ค24๋ถํด๋ฝ
- Today
- Total
๋ชฉ๋ก๋น ๋ฐ์ดํฐ (17)
์ ์ฅ์
**๊ฒฐ๋ก (MIND SET)- ์ต๊ทผ ๊ธฐ์ ๋ค์ ๊ณ์ ์ดํด๋ณด๊ณ ๊ณต๋ถํ๊ณ ์ง์ ํ์ฉํด๋ณด๊ธฐ- ์ดํดํ ๊ฒ๋ค๊ณผ ํ๊ณ ์๋ ๊ฒ๋ค์ ์ ์ ๋ฆฌํด๋ณด๊ธฐ > ๋ง๋๋ ๊ฒ์ ์ ์ค๋ช ํด๋ณด๋ ๊ฒ์ด ์ค์ : ๋๋ฟ๋ง ์๋๋ผ ํ์ ์๋ ๋์์ด ๋จ- “์”ํ๋์ง ๋์์์ด ์๊ฐํด๋ณด๊ธฐ > ๋ด๊ฐ ํ ์ผ์ด ์ด๋ค ๊ฐ์น๊ฐ ์๋์ง ์ ๋ฆฌํด๋ณด๋ ๊ฒ- ์ฐ์ ์์ ์ ํ๊ธฐ > ํ๋ก์ ํธ์ ํฌ์ ๋๋ ์ธ์์ ์๊ฐ๋ณด๋ค ์ถฉ๋ถํ์ง ์๊ธฐ ๋๋ฌธ์, ์ฌ๋ฌ ํ๋ก์ ํธ๋ฅผ ๋์์ ์งํํ ์๋ ์์- ์ญํ ๋ถ๋ด > R&R ์ ์ ํด์ผ ๋ง์ฐฐ์์ด ์งํํ ์ ์์- ๋ค๋ฅธ ์์ญ์ ์ง์๋ ์ํํ ํ์ง ์๊ธฐ(cloud, api, database ๋ฑ..)*๋ฐ์ดํฐ์ฌ์ด์ธ์ค = ๊ฒฐ๊ตญ ๋ชจ๋ธ๋ง ์ธ์ + ๋ชจ๋์ ์ํ ์ฝ๋ ๊ฐ๋ฐ - ํ์ด์ฌ ์ค์, ์ค์ ์ด์์ํ ์ฝ๋ ๊ฐ๋ฐ ํ์ํ๊ธฐ ๋๋ฌธ์ api ๊ฐ๋ฐ๋ ์ด๋์ ๋ ํ..
###ํ ์คํธ๋ง์ด๋ ๊ธฐ๋ณธ ํจ์ letters[3]LETTERS[3]lettersletters[1:12]LETTERS[2:15] ##์๋ฌธ์ ๋๋ฌธ์ ์ ํtolower('KOREA')toupper('korea') ##๋ฐ์ดํธ ์ธ์ฃผ๋ ํจ์ค nchar nchar('korea')length('korea') nchar('ํ๊ตญ')length('ํ๊ตญ') nchar('ํ๊ตญ',type = 'bytes') ##substr ๋ฌธ์์ด ์ถ์ถ(์ค์!!)substr('BigDataAnalysis', start=4, stop=7)substr('BigDataAnalysis', 4,7) country
์์๋ธ_์๊ณ์ด, ๋ฐฐ๊น (bagging), ๋ถ์คํ (boosting), ๋๋คํฌ๋ ์คํธ(randomForest)###์๊ณ์ด ์์ธก ์ดํด์ ํ์ฉ str(AirPassengers) AirPassengers plot(AirPassengers) apts
install.packages('arulesViz')library(arulesViz)data('Groceries')summary(Groceries)head(Groceries) #ํธ๋์ ์ ๋ฐ์ดํฐ๋ผ ๋ฐ๋ก ๋ณผ ์X ๋ฐ์ดํฐํ๋ ์ ๋ณํ ํ์. gro=as(Groceries,'data.frame') ##R์ฐ๊ด๊ท์น ์์ฑ ๋ฐ ์ฃผ์ ๊ท์นํ์ธrules=apriori(Groceries,parameter=list(support=0.001,confidence=0.5))#apriori๊ฐ A์ด ๋ B์ฐ๋ค๋ ๊ท์น์ ๋ง๋ค์ด์ฃผ๋ ํจ์ rulesinspect(head(sort(rules,by='lift'),3)) #lift๊ฐ์ผ๋ก ์ ๋ ฌํด์ ์์ 3๊ฐ ํ์ธ inspect(head(sort(rules,by='lift'),5)) plot(rul..
###์๊ด๋ถ์_๋ฌด๋ฐฉํฅ์ฑ ๋ฐ์ดํฐ๋ถ์ cor(iris$Sepal.Width,iris$Sepal.Length) auto=read.csv('autoparts.csv')auto1=auto[auto$prod_no=='90784-76001',c(2:11)]auto2=auto1[auto1$c_thickness32]=2auto3$flag[auto3$c_thickness32]=2auto4$flag[auto4$c_thickness
###์์ฌ๊ฒฐ์ ๋๋ฌดauto=read.csv('autoparts.csv')auto1=auto[auto$prod_no=='90784-76001',c(2:11)]auto2=auto1[auto1$c_thickness
###์ง๋ํ์ต ์๊ณ ๋ฆฌ์ฆ ##์ํฌํธ ๋ฒกํฐ ๋จธ์ auto=read.csv('autoparts.csv',header=T)auto1=auto[auto$prod_no=='90784-76001',c(2:11)]auto2=auto1[auto1$c_thickness
###ํ๊ท๋ถ์ - ์ถ์ (๊ฒฐ๊ณผ๋ณ์๊ฐ ์ฐ์๋ณ์์ผ ๊ฒฝ์ฐ)์ ํ์ฉํ๋ ๋ํ์ ์ธ ๋ถ์๋ฐฉ๋ฒ##๋จ์ํ๊ท๋ถ์๊ณผ ๋ค์คํ๊ท๋ถ์,๋ก์ง์คํฑํ์ง๋ถ์ ##์ ์ฒ๋ฆฌauto=read.csv('autoparts.csv')dim(auto)is.na(auto)complete.cases(auto)auto[!complete.cases(auto),]head(auto)auto1=auto[auto$prod_no=='90784-76001',c(2:11)]head(auto1) summary(auto1)boxplot(auto1)boxplot(auto1$separation)auto2=auto1[auto$c_thickness