** DATA_605_Discussion_2_C24_pg353_Daniel_Thonn **

Find determinant by hand:

m1-hand= -2[(-2*2) - 4] -3[(-42) - (21)] - 2[(-43) - (2-2)] = 16 + 30 + 24 = 70

Find determinant with R:

m1 <- matrix(
  c(-2, -4, 2, 3,-2,4, -2,1,2),
  nrow = 3,
  ncol = 3)

m1
##      [,1] [,2] [,3]
## [1,]   -2    3   -2
## [2,]   -4   -2    1
## [3,]    2    4    2
det(m1)
## [1] 70
# det(m1) = 70

END