# R program to illustrate
# determinant function
  
# Initializing a matrix with
# 3 rows and 3 columns
x <- matrix(c(3, 2, 6, -1, 7, 3, 2, 6, -1), 3, 3)
  
# Getting the matrix representation
x
  
# Calling the determinant() function
determinant(x)

     [, 1] [, 2] [, 3]
[1, ]    3   -1    2
[2, ]    2    7    6
[3, ]    6    3   -1

modulus
[1] 5.220356
attr(, "logarithm")
[1] TRUEsign
[1] -1

attr(, "class")
[1] "det"

# R program to illustrate
# determinant function
  
# Initializing a matrix with
# 2 rows and 2 columns
x <- matrix(c(1, 2, 3, 4), 2, 2)
  
# Getting the matrix representation
x
  
# Calling the determinant() function
determinant(x, logarithm = FALSE)

     [, 1] [, 2]
[1, ]    1    3
[2, ]    2    4

modulus
[1] 2
attr(, "logarithm")
[1] FALSEsign
[1] -1

attr(, "class")
[1] "det"