cachematrix.R

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

## Write a short comment describing this function

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

	set <- function(y)
	{
		x <<- y
		m <<- NULL
	}

	get <- function()
	{
		x
	}

	setInverse <- function(myInverse)
	{
		m <<- myInverse
	}

	getInverse <- function()
	{
		m
	}

	list(set=set, get=get, setInverse=setInverse, getInverse=getInverse)

}


## Write a short comment describing this function

cacheSolve <- function(x, ...) {
        ## Return a matrix that is the inverse of 'x'
	m <- x$getInverse()

	if (!is.null(m))
	{

		message("getting cached inverse data")
		return(m)
	}


		data <- x$get()

		## CALCULATE the inverse here!!		
		m <- solve(data)
		 
		x$setInverse(m)
		m

}