Beezer: A First Course in Linear Algebra, Page: 353

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

By Hand: