Update cachematrix.R

LOGp · LOGp · commit 7e244ebc51c2 · 2014-05-09T16:35:30.000+02:00
diff --git a/cachematrix.R b/cachematrix.R
@@ -44,7 +44,7 @@ cacheSolve <- function(x, ...) {
         # Inverse is NULL, so it has to be computed and updated to x
                 message("Computing and caching the inverse")
                 inverse <- solve(x$get())
-                x$set_inverse(inverse)
+                x$set_inverse(inverse, ...)
         }
         else {
         # Inverse is set, just have to return it (which is done at the end of the function)

Original file line number	Diff line number	Diff line change
`@@ -44,7 +44,7 @@ cacheSolve <- function(x, ...) {`
`44`	`44`	`# Inverse is NULL, so it has to be computed and updated to x`
`45`	`45`	`message("Computing and caching the inverse")`
`46`	`46`	`inverse <- solve(x$get())`
`47`		`- x$set_inverse(inverse)`
	`47`	`+ x$set_inverse(inverse, ...)`
`48`	`48`	`}`
`49`	`49`	`else {`
`50`	`50`	`# Inverse is set, just have to return it (which is done at the end of the function)`