์ผ | ์ | ํ | ์ | ๋ชฉ | ๊ธ | ํ |
---|---|---|---|---|---|---|
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 | 31 |
- ์์ดํจ๋ํค๋ณด๋
- ์์ค24๋ถํด๋ฝ
- ๋ถํด๋ฌ๋ฒ
- ์์ค24
- ๋ถํด๋ฝ
- r
- ๋ ์
- ๋ค๋์๋ฃจํด
- ์ฐ๋ฆฌ๊ฐ๋น์์๋๋ก๊ฐ์์๋ค๋ฉด
- ํธ์์
- ๋์์ฌ์ด์ธ์ค
- ๋ง์ผ์ปฌ๋ฆฌ
- ์ด๋ถ๋ฆฌ๋๊ธฐ
- ๊ฐํ์ ๋จ์
- ์ํ
- ๋ค์ด์ดํธ์ต๊ด
- ํธ์์ ๋ง์นด๋กฑ
- ์ผ์
- ์์ดํจ๋์ผ์ด์ค
- ์์ ๋ถ์นดํ
- ํค๋ณด๋์ผ์ด์ค
- ์จ์ ๋ง์นด๋กฑ
- ์ซ๋ํ๋ง์นด๋กฑ
- ์ด๋๋ฐดํธ์บ๋ฆฐ๋
- ์๋ฐ์ดํด๋์ค
- ๋น ๋ฐ์ดํฐ
- ์์ฃผ์นดํ
- ๋ค์ด์ดํธ๋๋ด์ผ๋ถํฐ
- ํธ์์ ๋์ ํธ
- ๋น ๋ฐ์ดํฐ์ฒญ๋ ์ธ์ฌ
- Today
- Total
๋ชฉ๋ก๋น ๋ฐ์ดํฐ (16)
์ ์ฅ์
###ํ ์คํธ๋ง์ด๋ ๊ธฐ๋ณธ ํจ์ 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
#๋ณ์ ๋ค ์ ๊ฑฐ(๋ฉ๋ชจ๋ฆฌ ์ญ์ ) rm(list=ls()) ###EDAํ์์ ๋ฐ์ดํฐ ๋ถ์ autoparts=read.csv('autoparts.csv')head(autoparts)head(autoparts,10) autoparts1=autoparts[autoparts$prod_no=='90784-76001',c(2:11)]dim(autoparts1) autoparts1[!complete.cases(autoparts1),] #์ฑ์์ ธ์์ง ์์ ๊ฒ์ด ์๋๊ณ ๋ฌป๋ ๊ฒ, ๊ฒฐ์ธก์น๊ฐ ์๋ค๊ณ ๋์ดautoparts1[is.na(autoparts1),] ##๊ธฐ์ดํต๊ณ๋ summarysummary(autoparts1) ##๋ฐ์ดํฐ๋ถํฌ boxplotboxplot(autoparts1)boxplot(autoparts1$separatio..