cachematrix.R

## The two functions together allow you to create a special matrix object type 
##   that can store its own inverse and then allow you to set and retrieve that inverse.
## 
## To use this, create a matrix ("Z").
##  Then call makeCacheMatrix ,
##        and pass in the matrix ("Z") you just made to create one of the special matrices ("Z'").
##  Then, instead of calling solve on Z, always call cacheSolve on Z'. 
##  The first time you run it this way
##        it will have to solve for the inverse of Z. 
##  Anytime after that, it will just return the inverse from memory rather than solving it.

## makeCacheMatrix: This function creates a special "matrix" object that can cache its inverse.
makeCacheMatrix <- function(x = matrix()) {
  m <- NULL
  set <- function(y) {
    x <<- y
    m <<- NULL
  }
  get <- function() x
  setSolve <- function(solve) m <<- solve
  getSolve <- function() m
  list(set = set, get = get,
       setSolve = setSolve,
       getSolve = getSolve)
}


## This function computes the inverse of the special "matrix" 
#   returned by makeCacheMatrix above. 
#   If the inverse has already been calculated (and the matrix has not changed), 
#     then the cachesolve should retrieve the inverse from the cache.
cacheSolve <- function(x, ...) {
        ## Return a matrix that is the inverse of 'x'
  m <- x$getSolve()
  if(!is.null(m)) {
    message("getting cached data")
    return(m)
  }
  data <- x$get()
  m <- solve(data, ...)
  x$setSolve(m)
  m
}