cachematrix.R

## Write a short comment describing this function
## makeCacheMatrix returns a list which represents a special matrix.
## The list has 4 parameters. set which resests the matrix itself,
## get which returns the matrix, setinverse which stores the inverse
## and getinverse which returns the cached inverse if present.
makeCacheMatrix <- function(x = matrix()) {
inv= NULL
set <- function(y) {
  x <<- y
  inv <<- NULL
}
get <- function() x
  
setinverse <- function(inverse) inv <<- inverse
getinverse <- function() inv
list(set = set, get = get,
     setinverse = setinverse,
     getinverse = getinverse)
  
}

## Write a short comment describing this function
## This function takes a makeCacheMatrix list and checks if it contains and inverse.
## If so it returns it. If not it calculates and stores it.
cacheSolve <- function(x, ...) {
        ## Return a matrix that is the inverse of 'x'
  inv <- x$getinverse()
  if(!is.null(inv)) {
    message("getting cached data")
    return(inv)
  }
  data <- x$get()
  inv <- solve(data, ...)
  x$setinverse(inv)
  inv
  
}


##Here is my testing stuff. I will leave it commeted out.
##mat<-matrix(c(12,15,99,15,54,31,12,45,31),3)
##solve(mat)
##
##matCache<-makeCacheMatrix(mat)
##cacheSolve(matCache)