editing file to include my solution for cached inversed matrix

cad_rboliveira · cad_rboliveira · commit d640fdd5e7d4 · 2015-06-18T08:10:00.000-03:00
diff --git a/cachematrix.R b/cachematrix.R
@@ -4,12 +4,38 @@
 ## Write a short comment describing this function
 
 makeCacheMatrix <- function(x = matrix()) {
-
+        inversedM <- NULL
+        
+        set <- function(y) {
+                x <<- y
+                inversedM <<- NULL
+        }
+        
+        get <- function() x
+        
+        setInversed <- function(inversedM) inversedM <<- inversedM
+        
+        getInversed <- function() inversedM
+        
+        list(set = set, get = get, setInversed = setInversed, getInversed = getInversed)
 }
 
 
 ## Write a short comment describing this function
 
 cacheSolve <- function(x, ...) {
         ## Return a matrix that is the inverse of 'x'
+        inverserd <- x$getInversed()
+        if (!is.null(inverserd)) {
+                message("getting cached data")
+                return(inverserd)
+        }
+        
+        matrix <- x$get()
+        
+        inversed <- solve(matrix)
+        
+        x$setInversed(inversed)
+        
+        inversed
 }
