vt <- c(-1, -3, -5, -7, -8, 9, 11, 13, 15)
mtrx <- matrix(vt, nrow = 3, ncol = 3)
print(det(mtrx))
## [1] -360
Determinan matriks di atas adalah -360. Oleh karena itu, mentranspos matriks dan kemudian menghitung determinan juga akan menghasilkan keluaran yang sama seperti di atas. Transpose Matriks adalah “Matriks yang dibentuk dengan mengubah semua baris matriks tertentu menjadi kolom dan sebaliknya.”
vt <- c(-1, -3, -5, -7, -8, 9, 11, 13, 15)
mtrx <- matrix(vt, nrow = 3, ncol = 3)
t_m <- t(mtrx)
print(det(t_m))
## [1] -360
Contoh 3: Menghitung Modulus determinan pada Skala logaritma menggunakan fungsi determinan()
mat <- matrix(sample(1:16, 16, replace = TRUE), nrow = 4)
determinant(mat, logarithm = FALSE)
## $modulus
## [1] 2265
## attr(,"logarithm")
## [1] FALSE
##
## $sign
## [1] -1
##
## attr(,"class")
## [1] "det"