cachematrix.R

## A pair of functions that cache the inverse of a matrix

## The following function will make a cache matrix. 

makeCacheMatrix <- function(x = matrix()) {

## Initialize the inverse property
    i <- NULL
    
## Method to set the matrix
    set <- function(y){
        x <<- y
        i <<- NULL
    }
    
## Method the get the matrix
    get <- function() x
    
## Method to set the inverse of the matrix
    setinv <- function(solve) i <<- solve
    
## Method to get the inverse of the matrix
    getinv <- function() i
    
## Return a list of the methods
    list(set = set, get = get, setinv = setinv, getinv = getinv)
}

## Compute 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'
   i <- x$getinv()
   
## Just return the inverse if its already set
   if (!is.null(i)) {
       message("getting cached data")
       return(i)
   }
   
## Get the matrix from object
   data <- x$get()
   
## Calculate the inverse using matrix multiplication
   i <- solve(data, ...)
   
## Set the inverse to the object
   x$setinv(i)
   
## Return the matrix
   i
}