A <- matrix(c(0, 1, 1, 3, 4, 1, -2, 0, 0, 5, 0,0,-3,2,6,1), nrow=4, ncol=4)
\[\mathbf{A} = \left[\begin{array} {rrr} 0 & 4 & 0 & -3 \\ 1 & 1 & 5 & 2 \\ 1 & -2 & 0 & 6 \\ 3 & 0 & 0 & 1 \end{array}\right] \]
???
A <- matrix(c(0, 1, 1, 3, 4, 1, -2, 0, 0, 5, 0,0,-3,2,6,1), nrow=4, ncol=4)
det(A)
## [1] -250
result = -5*(-1*((4*1-3*0))+3*(4*6-(-3*-2)))
result
## [1] -250