matriks1 <- matrix(c(1,3,5,7), nrow = 2, ncol = 2)
matriks2 <- matrix(c(2,4,6,8), nrow = 2, ncol = 2)
hasil_penjumlahan <- matriks1 + matriks2
print(hasil_penjumlahan)
## [,1] [,2]
## [1,] 3 11
## [2,] 7 15
matriks1 <- matrix(c(1,2,3,4), nrow = 2, ncol = 2)
matriks2 <- matrix(c(5,6,7,8), nrow = 2, ncol = 2)
hasil_perkalian <- matriks1 * matriks2
print(hasil_perkalian)
## [,1] [,2]
## [1,] 5 21
## [2,] 12 32
matriks_identitas <- diag(4)
print(matriks_identitas)
## [,1] [,2] [,3] [,4]
## [1,] 1 0 0 0
## [2,] 0 1 0 0
## [3,] 0 0 1 0
## [4,] 0 0 0 1
matriks <- matrix(c(1,3,5,7), nrow = 2, ncol = 2)
transpose_matriks <- t(matriks)
print(transpose_matriks)
## [,1] [,2]
## [1,] 1 3
## [2,] 5 7
matriks <- matrix(c(2,4,6,8), nrow = 2, ncol = 2)
determinan <- det(matriks)
print(determinan)
## [1] -8
matriks <- matrix(c(1,2,3,4), nrow = 2, ncol = 2)
invers_matriks <- solve(matriks)
print(invers_matriks)
## [,1] [,2]
## [1,] -2 1.5
## [2,] 1 -0.5