makeCacheMatrix.R

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

cachesolve <- function(x, ...) {
  inv <- x$getInverse()
  if(!is.null(inv)) {
    message("getting cache data displayed")
    return(inv)
  }
  
  mat <- x$get()
  inv <- solve(mat, ...)
  x$setInverse(inv)
  inv
  
}

pmatrix <- makeCacheMatrix(matrix(1:4, nrow = 2, ncol = 2))
pmatrix$get()

##      [,1] [,2]
## [1,]    1    3
## [2,]    2    4

pmatrix$getInverse()

## NULL

cachesolve(pmatrix)

##      [,1] [,2]
## [1,]   -2  1.5
## [2,]    1 -0.5

cachesolve(pmatrix)

## getting cache data displayed

##      [,1] [,2]
## [1,]   -2  1.5
## [2,]    1 -0.5

pmatrix$getInverse()

##      [,1] [,2]
## [1,]   -2  1.5
## [2,]    1 -0.5