sum(1, 2, 3)
mean(1, 2, 3)
sum(1, 2, NA)
x <- NA
x
is.na(x)
x[1]
x[is.na(x)] <- 0
x
sum(1, 2, 3, NA, na.rm = TRUE)
sum(1, 2, 3, NA, na.rm = T)
sum(1, 2, 3, NA, na.rm = TRUE)
x <- c(1, 2, 3, NA)
x
x[is.na(x)] <- 0
x
# matrix
mat1 <- matrix(c(1:20), nrow = 4)
mat1 <- matrix(c(1:20), nrow = 4, byrow = T)

mat1[c(1,3), c(2,4)]
mat1[c(2, 3), ]
mat1[ ,c(3, 4)]

#list
list1 <-list(c(1001, '강감찬', '1998-07-20'))
list1
list2 <- list(1002, '일지매', '1989-11-20')
list2
list3 <- list(학번=1003, 이름='김유신', 생일='2020-01-15')
list3
names(list2) <- c('학번', '이름', '생일')
list2
list3
list4 <- rbind(list2, list3)

# dataframe
no <- c(1001, 1002, 1003)
name <- c('홍길동', '일지매', '강감찬')
kor <- c(88, 78, 93)
eng <- c(65, 75, 99)
no
name
kor
eng
data1 <- data.frame(no, name, kor, eng)
data1$name
data1[2]
data1[[2]]
data1$hap <- data1$kor + data1$eng
data1
data2 <- cbind(data1, grade=c(1, 2, 3)) # 열 추가
data2
data3 <- rbind(data1, c(1004, '김유신', 50, 50, 100)) # 행 추가
data3
getwd()
txt1 <- readLines('구매후기.txt')
readLines('구매후기_utf8.txt', encoding='UTF-8')
  1. 주요 정규식 기호와 의미 기호 의미 \\d Digit, 0,1,2 ... 9 \\D 숫자가 아닌 것 \\s 공백 \\S 공백이 아닌 것 \\w 단어 \\W 단어가 아닌 것 \\t Tab (8칸씩 띄어쓰기 한 것) \\n New line (엔터 문자) ^ 시작 되는 글자를 지정 $ 마지막 글자를 지정 \ Escape character (탈출문자), e.g. \\ is "\", \+ is "+" | 두 개 이상의 조건을 동시에 지정. e.g. /(e|d)n/ matches "en" and "dn" • 엔터(New line)를 제외한 모든 문자