cachematrix.R

## Put comments here that give an overall description of what your
## functions do

## Write a short comment describing this function

makeCacheMatrix <- function(x = matrix()) {
  
  iv <- NULL
  
  ## set the matrix
  set <- function( matrix ) {
    m <<- matrix
    iv <<- NULL
  }
  
  ## get the matrix
  get <- function() {
    ## Return matrix
    m
  }
  
  ## set the inverse
  setInverse <- function(inverse) {
    iv <<- inverse
  }
  
  ## get the inverse of the matrix
  getInverse <- function() {
    ## Return inverse property
    iv
  }
  
  ## Return the methods
  list(set = set, get = get,setInverse = setInverse,getInverse = getInverse)

}


## Write a short comment describing this function

cacheSolve <- function(x, ...) {
  ## Return a matrix that is the inverse of 'x'
   
  m <- x$getInverse()
  
  ## Just return the inverse if its already set
  if( !is.null(m) ) {
    message("getting cached inverse")
    return(m)
  }
  
  ## Get the matrix from our object
  data <- x$get()
  
  ## Calculate the inverse using matrix multiplication
  m <- solve(data)
  
  ## Set the inverse to the object
  x$setInverse(m)

  m
}