#makeCacheMatrix creates a matrix object that cache its inverse value for reuse

#It containing a list of function to

# set the value of the matrix

# get the value of the matrix

# set the value of the inverse matrix

# get the value of the inverse matrix

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

m <- NULL

set <- function(y) {

x <<- y

m <<- NULL

}

get <- function() x

setInverseMatrix <- function(InverseMatrix) m <<- InverseMatrix

getInverseMatrix <- function() m

list(set = set, get = get,

setInverseMatrix = setInverseMatrix,

getInverseMatrix = getInverseMatrix)

}

#The following function calculates the inverse matrix of makeCacheMatrix.

#It first checks to see if the inverse matrix has already been calculated.

#If yes, it gets the value from the cache and skips the computation.

#Otherwise, it calculates the inverse matrix of the data and sets the value of the inverse matrix

#in the cache via the setInverseMatrix function and return it.

cacheSolve <- function(x, ...) {

m <- x$getInverseMatrix()

if(!is.null(m)) {

message("getting cached data")

return(m)

}

data <- x$get()

m <- solve(data, ...)

x$setInverseMatrix(m)

m

}