Allow extra arguments to "solve"

Author: mrc

cachematrix.R

@@ -54,7 +54,7 @@ cacheSolve <- function(x, ...) {
                 return(inv)
         }
         data <- x$get()
-        inv <- solve(data)
+        inv <- solve(data, ...)
         x$setinverse(inv)
         inv
 }