Passing the additional parameters to the Solve function.

Author: xunilrj

cachematrix.R

@@ -25,7 +25,7 @@ cacheSolve <- function(x, ...) {
     return(m)
   }
   data <- x$get()
-  m <- solve(data)
+  m <- solve(data, ...)
   x$setSolve(m)
   m  
 }