t1

1. vector a를 다음과 같이 정의할 수 있다

a<-c(1,2,3)
print(a)

## [1] 1 2 3

-이때 a에 추가 요소는 동일하게 넣을 수 있다.

a<-c(a,4)
print(a)

## [1] 1 2 3 4

-벡터에 다양한 타입의 요소를 넣을 수 있다.

q<-c(a,"a",TRUE,1==3 )
print(q)

## [1] "1"     "2"     "3"     "4"     "a"     "TRUE"  "FALSE"

-만약 백터 b를 다음과 같이 정의하면 a와 b를 더한 백터 e를 만들 수 있다.

a<-c(1,2,3,4)
b<-c(5,6,7)
print(b)

## [1] 5 6 7

e<-c(a,b)
print(e)

## [1] 1 2 3 4 5 6 7

2. matrix matrix는 이름처럼 행렬형태의 변수이다.

a<-matrix(c(1,2,3,4), nrow = 2, ncol = 2, dimnames = list( c("1행", "2행"),c("1열","2열")))
print(a)

##     1열 2열
## 1행   1   3
## 2행   2   4

-data에 해당하는 곳에 백터를 넣어주면 된다. 또한 요소는 다양하게 들어 갈 수 있다. -‘byrow = TRUE’ 할경우 row부터 체워넣는다.

a1<-c("곰","세","마","리")
a<-matrix(a1, nrow = 2, ncol = 2, dimnames = list( c("1행", "2행"),c("1열","2열")),byrow = TRUE)
print(a)

##     1열  2열 
## 1행 "곰" "세"
## 2행 "마" "리"

a2<-matrix(a1, nrow = 2, ncol = 2, dimnames = list( c("1행", "2행"),c("1열","2열")),byrow = FALSE)
print(a2)

##     1열  2열 
## 1행 "곰" "마"
## 2행 "세" "리"

-행렬 요소는 ’변수[행,열]’형태로 추출 가능

a1<-c("곰","세","마","리")
a<-matrix(a1, nrow = 2, ncol = 2, dimnames = list( c("1행", "2행"),c("1열","2열")),byrow = TRUE)
a[1,2]

## [1] "세"

a[2,]

##  1열  2열 
## "마" "리"

a[,1]

##  1행  2행 
## "곰" "마"

3. list -짬뽕이 가능한 list이다.

#리스트요소 만들기
a1<-matrix(c(1,2,3,4), nrow = 2, ncol = 2, dimnames = list( c("1행", "2행"),c("1열","2열")))
a2<-c(12,4,2)
a3<-c("한국다람쥐")

#a리스트로 정의
a<-list(a1,a2,a3)
a

## [[1]]
##     1열 2열
## 1행   1   3
## 2행   2   4
## 
## [[2]]
## [1] 12  4  2
## 
## [[3]]
## [1] "한국다람쥐"

-list에 이름 붙일 수 있다. 위에는 1,2,3으로 리스트 이름이 되어 있었는데 이를 바꾸면 다음과 같다. 따라서 list 요소를 추출 할때 해당 이름으로 입력하면 된다.

names(a)<-c("1더하기", "1은", "2")
a#결과 확인

## $`1더하기`
##     1열 2열
## 1행   1   3
## 2행   2   4
## 
## $`1은`
## [1] 12  4  2
## 
## $`2`
## [1] "한국다람쥐"

##요소추출
a["1더하기"]

## $`1더하기`
##     1열 2열
## 1행   1   3
## 2행   2   4

remove(a)

4. Data frame -가장 일반적 형태의 데이터이다. 엑셀로 생각하면 된다.

-짬뽕이 가능한 list이다.

#dataframe 만들기
a1<-c(1,2,3,4)
a2<-a1+2

a<-data.frame(a1,a2)
a

##   a1 a2
## 1  1  3
## 2  2  4
## 3  3  5
## 4  4  6

5. factor -명목, 서열 변수에 쓰는 factor이다.가령 설문지에 0:남자 1:여자로 되어 있을때 다음과 같이 변환 가능하다,

#dataframe 만들기
a1<-rep(c(0,1), each=10)#가짜 데이터 만들기
a2<-factor(a1, levels = c(0,1), labels = c("남자","여자"))
a1

##  [1] 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1

a2

##  [1] 남자 남자 남자 남자 남자 남자 남자 남자 남자 남자 여자 여자 여자 여자 여자
## [16] 여자 여자 여자 여자 여자
## Levels: 남자 여자

6. 기초 연산 행렬의 곱

#dataframe 만들기
a1<-matrix(c(1,2,3,4), nrow = 2)
a2<-matrix(c(1,0,0,1), nrow = 2)
print(a1%*%a2)

##      [,1] [,2]
## [1,]    1    3
## [2,]    2    4