R 기초; 행렬 연산

R 기초; 행렬 연산

mtx <- matrix(1:6, 2, 3)
mtx
     [,1] [,2] [,3]
[1,]    1    3    5
[2,]    2    4    6

mtx + 1
     [,1] [,2] [,3]
[1,]    2    4    6
[2,]    3    5    7

mtx / 2
     [,1] [,2] [,3]
[1,]  0.5  1.5  2.5
[2,]  1.0  2.0  3.0

a <- matrix(1:6, 2, 3)
b <- matrix(6:1, 2, 3)

a + b
     [,1] [,2] [,3]
[1,]    7    7    7
[2,]    7    7    7

a*b # 각 원소끼리 곱한 값 (행렬의 곱셈이 아님)
     [,1] [,2] [,3]
[1,]    6   12   10
[2,]   10   12    6

# 행렬끼리의 곱셈은 '*'가 아닌 '%*%'
a <- matrix(1:6, 2, 3)
b <- matrix(1:6, 3, 2)

a %*% b
     [,1] [,2]
[1,]   22   49
[2,]   28   64

mtx <- matrix(1:6, 2, 3)
mtx
     [,1] [,2] [,3]
[1,]    1    3    5
[2,]    2    4    6


mtx %*% 1:3
     [,1]
[1,]   22
[2,]   28

1:2 %*% mtx
     [,1] [,2] [,3]
[1,]    5   11   17


# 재사용 규칙으로 1, 2, 3, 1, 2, 3 반복 덧셈 실행
mtx + 1:3
     [,1] [,2] [,3]
[1,]    2    6    7
[2,]    4    5    9

mtx
     [,1] [,2] [,3]
[1,]    1    3    5
[2,]    2    4    6

rowSums(mtx)
[1]  9 12

colSums(mtx)
[1]  3  7 11

rowMeans(mtx)
[1] 3 4

colMeans(mtx)
[1] 1.5 3.5 5.5

# 전치 행렬
t(mtx)
     [,1] [,2]
[1,]    1    2
[2,]    3    4
[3,]    5    6