cachematrix.R

## makeCacheMatrix creates a CachedMatrix object with 4 methods:
## set : set the matrix to the given input x
## get : get the matrix
## setInverse : set the inverse of the matrix
## getInverse : get the inverse of the matrix, first checking cache
makeCacheMatrix <- function(sqrMatrix = matrix()) {
  inverse <- NULL
  set <- function(x) {
    sqrMatrix <<- x
    inverse <<- NULL
  }
  get <- function() sqrMatrix
  setInverse <- function(inv) inverse <<- inv
  getInverse <- function() {
    if(is.null(inverse)){
      message("Solving inverse...")
      setInverse(solve(sqrMatrix))
    }
    inverse
  }
  list(set=set, get=get, setInverse=setInverse, getInverse=getInverse)
}


## cacheSolve returns the inverse of a given cacheMatrix
cacheSolve <- function(cacheMatrix, ...) cacheMatrix$getInverse()