cachematrix.R

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

## The following function creactes a special matrix, which is a list
## containing a function 
## to set the value of the matrix, 
## get the value of the matrix
## set the value of the inverse
## get the value of the inverse

makeCacheMatrix <- function(x = matrix()) {
  m <- NULL
  set <- function(y){
    x <<- y
    m <<- NULL
  }
  get <- function() x
  setinverse <- function(solve) m <<- solve
  getinverse <- function() m
  list(set = set, get = get, setinverse = setinverse, getinverse = getinverse)

}


## The following function calculates the inverse of the special 
## matrix created with the above funcion. It first checks to see if 
## the mean has already been calculated and if so, returns the mean from cache

cacheSolve <- function(x, ...) {
        m <- x$getinverse()
        if(!is.null(m)){
          message("getting cached data")
          return(m)
        }
        data <- x$get()
        m <- solve(data, ...)
        x$setinverse(m)
        m
}