MASS for matrix operation

Name : Farhan Dzaffa Arfianto

NIM : 220605110099

Class : C

Institue : Maulana Malik Ibrahim Islamic State University of Malang

Lecture : Prof. Dr. Suhartono, M.Kom

library(MASS)

matriks <- matrix(1:9, nrow = 3, ncol = 3)
print(matriks)

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

determinan <- det(matriks)
print(determinan)

## [1] 0

inverse <- ginv(matriks)
print(inverse)

##            [,1]          [,2]       [,3]
## [1,] -0.6388889 -5.555556e-02  0.5277778
## [2,] -0.1666667 -1.387779e-17  0.1666667
## [3,]  0.3055556  5.555556e-02 -0.1944444

eigen_info <- eigen(matriks)
eigenvalues <- eigen_info$values
eigenvectors <- eigen_info$vectors
print(eigenvalues)

## [1]  1.611684e+01 -1.116844e+00 -5.700691e-16

print(eigenvectors)

##            [,1]       [,2]       [,3]
## [1,] -0.4645473 -0.8829060  0.4082483
## [2,] -0.5707955 -0.2395204 -0.8164966
## [3,] -0.6770438  0.4038651  0.4082483