changes

## Put comments here that give an overall description of what your
## functions do

## A pair of functions that cache the inverse of a matrix

## Creates a special matrix object that can cache its inverse
makeCacheMatrix <- function( mat = matrix() ) {

## Initialize the inverse property
iMatrix <- NULL

## Method to set the matrix
set <- function( matrix ) {
mat <<- matrix
iMatrix <<- NULL
}

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

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

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

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

## Compute the inverse of the special matrix returned by
"makeCacheMatrix"
## above. If the inverse has already been calculated (and the matrix has
not
## changed), then the "cachesolve" should retrieve the inverse from the
cache.
cacheSolve <- function(x, ...) {

## Return a matrix that is the inverse of 'x'
mat <- x$getInverse()

## Just return the inverse if its already set
if( !is.null(mat) ) {
message("getting cached data")
return(mat)
}

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

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

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

## Return the matrix
mat
}
Revert "changes"

This reverts commit 02f0d62ee951440d09a18be5ef1d7aa5eccc4934.
Merge remote-tracking branch 'origin/master'