Gaussian elimination: Difference between revisions

Content added Content deleted
(+R)
Line 3,613: Line 3,613:
<lang R>gauss <- function(a, b) {
<lang R>gauss <- function(a, b) {
n <- nrow(a)
n <- nrow(a)

det <- 1
det <- 1