library(MASS)
## Warning: package 'MASS' was built under R version 4.2.3

Matriks A

A <- matrix(c(1, 2, 3, 4), nrow = 2, byrow = TRUE)
print("Matriks A:")
## [1] "Matriks A:"
print(A)
##      [,1] [,2]
## [1,]    1    2
## [2,]    3    4

Matriks B

B <- matrix(c(5, 6, 7, 8), nrow = 2, byrow = TRUE)
print("Matriks B:")
## [1] "Matriks B:"
print(B)
##      [,1] [,2]
## [1,]    5    6
## [2,]    7    8

Penjumlahan Matriks A dengan B

C <- A + B
print("Penjumlahan matriks A dan B:")
## [1] "Penjumlahan matriks A dan B:"
print(C)
##      [,1] [,2]
## [1,]    6    8
## [2,]   10   12

Pengurangan A dengan B

D <- A - B
print("Pengurangan matriks A dan B:")
## [1] "Pengurangan matriks A dan B:"
print(D)
##      [,1] [,2]
## [1,]   -4   -4
## [2,]   -4   -4

Perkalian A dengan B

E <- A %*% B
print("Perkalian matriks A dan B:")
## [1] "Perkalian matriks A dan B:"
print(E)
##      [,1] [,2]
## [1,]   19   22
## [2,]   43   50

Transponen A

F <- t(A)
print("Transpose matriks A:")
## [1] "Transpose matriks A:"
print(F)
##      [,1] [,2]
## [1,]    1    3
## [2,]    2    4

Determinan A

det_A <- det(A)
print("Determinan matriks A:")
## [1] "Determinan matriks A:"
print(det_A)
## [1] -2

Invers A

inv_A <- solve(A)
print("Invers matriks A:")
## [1] "Invers matriks A:"
print(inv_A)
##      [,1] [,2]
## [1,] -2.0  1.0
## [2,]  1.5 -0.5