IDANNA CACHE MATRIX

[IdannaS19]

A pair of functions that cache the inverse of a matrix

Creates a special matrix object that can cache its inverse

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

## Initialize the inverse property
i <- NULL

## Method to set the matrix
set <- function( matrix ) {
        m <<- matrix
        i <<- NULL
}

## Method the get the matrix
get <- function() {
    ## Return the matrix
    m
}

## Method to set the inverse of the matrix
setInverse <- function(inverse) {
    i <<- inverse
}

## Method to get the inverse of the matrix
getInverse <- function() {
    ## Return the inverse property
    i
}

## Return a list of the methods
list(set = set, get = get,
     setInverse = setInverse,
     getInverse = getInverse)

}

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

m <- x$getInverse()


if( !is.null(m) ) {
        message("getting cached data")
        return(m)
}

## Get the matrix from our object
data <- x$get()

## Calculate the inverse using matrix multiplication
m <- solve(data) %*% data

## Set the inverse to the object
x$setInverse(m)

## Return the matrix
m

}

[02jia]

The code looks well.