[Author]
@ JungHwan Yun
@ Master Student in Data-Science
@ Seoul National University of Science & Technology(SeoulTech)
@ E-mail : junghwan.yun@seoultech.ac.kr
[Contents]
@ Topic : CRM : 데이터 마이닝 실습 : PART1
@ Class : Customer Relationship Management
@ Version : 2.0
@ Version date : 2017-05-11
@ Summary : R언어의 기초적인 문법을 다룹니다.
a <- 3
class(a)
## [1] "numeric"
b <- 'CRM'
class(b)
## [1] "character"
c <- TRUE
class(C)
## [1] "function"
(x <- c(1,3,4,5,4,3,2,7))
## [1] 1 3 4 5 4 3 2 7
(y <- c("kim", "seo", "park", "choi", "yun", "lee", "lim", "woo"))
## [1] "kim" "seo" "park" "choi" "yun" "lee" "lim" "woo"
(z <- c(T, T,T,F,F,TRUE,FALSE,TRUE))
## [1] TRUE TRUE TRUE FALSE FALSE TRUE FALSE TRUE
z <- c("kim", "seo", "park", "choi", "yun", "kim", "park", "kim")
(z <- factor(z))
## [1] kim seo park choi yun kim park kim
## Levels: choi kim park seo yun
(z2 <- factor(z, order = TRUE, level = c("kim", "park", "seo", "choi", 'yun')))
## [1] kim seo park choi yun kim park kim
## Levels: kim < park < seo < choi < yun
(m <- matrix(1:12, nrow = 4))
## [,1] [,2] [,3]
## [1,] 1 5 9
## [2,] 2 6 10
## [3,] 3 7 11
## [4,] 4 8 12
(m <- matrix(1:12, nrow = 4,byrow = TRUE))
## [,1] [,2] [,3]
## [1,] 1 2 3
## [2,] 4 5 6
## [3,] 7 8 9
## [4,] 10 11 12
(a1 <- array(1:24 , c(2,3,4)))
## , , 1
##
## [,1] [,2] [,3]
## [1,] 1 3 5
## [2,] 2 4 6
##
## , , 2
##
## [,1] [,2] [,3]
## [1,] 7 9 11
## [2,] 8 10 12
##
## , , 3
##
## [,1] [,2] [,3]
## [1,] 13 15 17
## [2,] 14 16 18
##
## , , 4
##
## [,1] [,2] [,3]
## [1,] 19 21 23
## [2,] 20 22 24
(a2 <- array(1:24 , c(2,3,2,2)))
## , , 1, 1
##
## [,1] [,2] [,3]
## [1,] 1 3 5
## [2,] 2 4 6
##
## , , 2, 1
##
## [,1] [,2] [,3]
## [1,] 7 9 11
## [2,] 8 10 12
##
## , , 1, 2
##
## [,1] [,2] [,3]
## [1,] 13 15 17
## [2,] 14 16 18
##
## , , 2, 2
##
## [,1] [,2] [,3]
## [1,] 19 21 23
## [2,] 20 22 24
d <- data.frame(NAME=c('YUN','GEUM','MOON','KANG','KIM'),
MATH=c(2,4,6,8,10),
ENGLISH=c(3,6,9,12,15),
KOREAN=c(4,8,12,16,20))
print(d)
## NAME MATH ENGLISH KOREAN
## 1 YUN 2 3 4
## 2 GEUM 4 6 8
## 3 MOON 6 9 12
## 4 KANG 8 12 16
## 5 KIM 10 15 20
L1 <- c(1, 2, 3, 4)
L2 <- matrix(1:6, 3, byrow=TRUE)
L3 <- array(1:24, c(3,4,2))
L4 <- data.frame(cust_id = c(1, 2, 3, 4), last_name = c("Kim", "Lee", "Choi", "Park"))
L5 <- list(L1, L2, L3, L4)
print(L5)
## [[1]]
## [1] 1 2 3 4
##
## [[2]]
## [,1] [,2]
## [1,] 1 2
## [2,] 3 4
## [3,] 5 6
##
## [[3]]
## , , 1
##
## [,1] [,2] [,3] [,4]
## [1,] 1 4 7 10
## [2,] 2 5 8 11
## [3,] 3 6 9 12
##
## , , 2
##
## [,1] [,2] [,3] [,4]
## [1,] 13 16 19 22
## [2,] 14 17 20 23
## [3,] 15 18 21 24
##
##
## [[4]]
## cust_id last_name
## 1 1 Kim
## 2 2 Lee
## 3 3 Choi
## 4 4 Park
-데이터 구조