Created functions makeCacheMatrix and cacheSolve.

textWrangler · textWrangler · commit 3415a756c033 · 2014-04-22T09:44:37.000-04:00
diff --git a/cachematrix.R b/cachematrix.R
@@ -1,15 +1,36 @@
-## Put comments here that give an overall description of what your
-## functions do
-
-## Write a short comment describing this function
-
-makeCacheMatrix <- function(x = matrix()) {
-
-}
-
-
-## Write a short comment describing this function
-
-cacheSolve <- function(x, ...) {
-        ## Return a matrix that is the inverse of 'x'
-}
+## The functions below create a special vector that stores a matrix along with 
+## its cached inverse if the inverse has been previously solved by cacheSolve
+## below
+
+## makeCacheMatrix creates a special vector that stores a matrix and its 
+## cached inverse if computed.
+
+makeCacheMatrix <- function(x = matrix()) {
+        m <- NULL
+        set <- function(y) {
+                x <<- y
+                m <<- NULL
+        }
+        get <- function() x
+        setmatrix <- function(matrix) m <<- matrix
+        getmatrix <- function() m
+        list(set = set, get = get,
+             setmatrix = setmatrix,
+             getmatrix = getmatrix)
+}
+
+## cacheSolve checks to see if the inverse of a matrix is stored in the
+## vector created by makeCacheMatrix, if so it returns the stored value
+## if not it computes the inverse and stores the value in the cache.
+
+cacheSolve <- function(x, ...) {
+        m <- x$getmatrix()
+        if(!is.null(m)) {
+                message("getting cached data")
+                return(m)
+        }
+        data <- x$get()
+        m <- solve(data, ...)
+        x$setmatrix(m)
+        m
+}
