cachematrix.R

## Provides 2 functions that being used together can cache the inverse of a matrix. 
## NOTE : support only invertible matrix.

## Creates a list of fuctions that caches given the inverse of the given matrix object

makeCacheMatrix <- function(x = matrix()) {
    inv <- NULL
    set <- function(y) {
        x <<- y
        inv <<- NULL
    }
    get <- function() x
    setInv <- function(inverse) inv <<- inverse
    getInv <- function() inv
    list(get=get, set=set, getInv=getInv, setInv=setInv)
}


## Computes the inverse of the object returned by makeCacheMatrix above. 
## If the inverse has already been calculated return the cached inverse matrix.
## If not, calcuate the inverse matrix and return it.

cacheSolve <- function(x, ...) {
    inv <- x$getInv()
    if (!is.null(inv)) {
        message("getting cache data")
        return(inv)
    }
    message("calculating inverse")
    data <- x$get()
    inv <- solve(data)
    x$setInv(inv)
    inv
}