R .11.

1. 행렬식

t() : 전치
det() : 행렬식
solve() : 역행렬
%*% : 행렬곱

코드 작성

mat <- matrix(1:6,nrow=2)
mat

#전치행렬
t(mat)

NROW(mat);NCOL(mat)
#0행렬
zero.mat <- matrix(rep(0,16), nrow =4)
zero.mat

mat.1 <- matrix(x(1,2,3,4,5,4,3,2,1), ncol=3)
mat.1
#det
det(mat.1)
#역행렬
mat.1.R <- solve(mat.1)
mat.1.R

#AB=I, 항등행렬
round(mat.1 %*% mat.1.R,3) #반올림 보정

#행렬식이 0이면 역행렬이 없음
new.mat <- matrix(1:9, ncol=3)
new.mat

new.mat.R <- solve(new.mat)

det(new.mat)

결과

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

NROW(mat)
[1] 2
NCOL(mat)
[1] 3

전치행렬
[,1] [,2]
[1,] 1 2
[2,] 3 4
[3,] 5 6

NROW(mat)
[1] 2
NCOL(mat)
[1] 3

0행렬
[,1] [,2] [,3] [,4]
[1,] 0 0 0 0
[2,] 0 0 0 0
[3,] 0 0 0 0
[4,] 0 0 0 0

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

det
[1] -8

역행렬
[,1] [,2] [,3]
[1,] 0.375 -1 0.875
[2,] -0.500 1 -0.500
[3,] 0.875 -1 0.375

항등행렬
[,1] [,2] [,3]
[1,] 1 0 0
[2,] 0 1 0
[3,] 0 0 1

[,1] [,2] [,3]
[1,] 1 4 7
[2,] 2 5 8
[3,] 3 6 9

Error

det
0