Updated function rdpeng#4

jpavkov · jpavkov · commit c820acf4dcf7 · 2014-12-19T14:39:53.000-05:00
diff --git a/cachematrix.R b/cachematrix.R
@@ -31,3 +31,32 @@ makeCacheMatrix <- function(x = matrix()) {
              getinverse = getinverse) 
         
 }
+
+
+
+## The cacheSolve function takes the object created from the function above and looks
+## for the inverse of the matrix. If the object already has calculated it, then it will
+## just pull in the inverse which is stored. If it doesn't already have it calculated,
+## then it will calculate the inverse.
+
+cacheSolve <- function(x, ...) {
+        ## Return a matrix that is the inverse of 'x'
+        
+        im <- x$getinverse() 
+        
+        # checks to see if the inverse is already calculated
+        if(!is.null(im)) { 
+                message("getting inverse matrix")
+                return(im) 
+        }
+        
+        data <- x$get()        
+        
+        # if not already calculated, solves for the inverse of the matrix
+        im <- solve(data, ...)   
+        
+        x$setinverse(im)           
+        
+        im       
+
+}
