Today

강의

R 프로그램, 통계 28강

스터디 내용

28. matrix determinant, 역행렬 inverse 1

C <- matrix(c(1,-1,2,3), nrow = 2)
C

def_f <- function(A){
  D <- A[1,1]*A[2,2] - A[1,2]*A[2,1]
  return(D)
}

def_f(C)

det(C)

inv_f <- function(A){
  B <- matrix(nrow=2, ncol=2)
  B[1,1] <- A[2,2]
  B[2,2] <- A[1,1]
  B[1,2] <- -A[1,2]
  B[2,1] <- -A[2,1]
  return(B)
}

inv_f(C)

C%*%((1/def_f(C))*inv_f(C))


inv_f <- function(A){
  D <- A[1,1]*A[2,2] - A[1,2]*A[2,1]
  B <- matrix(nrow=2, ncol=2)
  B[1,1] <- A[2,2]
  B[2,2] <- A[1,1]
  B[1,2] <- -A[1,2]
  B[2,1] <- -A[2,1]
  I = 1/D*B
  inv <- list()
  inv$det <- D
  inv$I <- I
  return(inv)
}

D <- inv_f(C)$det
D
I <- inv_f(C)$I

C%*%I

round(C%*%solve(C),10)

Tomorrow

• 매일 1시간 정도 R 강의 수강 및 실습 진행

Summary

• keep going!