m <- matrix(c(1, 4, 1, 3,1,0,2,3,1), nrow = 3, ncol = 3, byrow=F) m
## [,1] [,2] [,3] ## [1,] 1 3 2 ## [2,] 4 1 3 ## [3,] 1 0 1
det(m)
## [1] -4