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()) {

	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)
}


# The following function returns the inverse of the matrix. It first checks if
# the inverse has already been computed. If so, it gets the result and skips the
# computation. If not, it computes the inverse, sets the value in the cache via
# setinverse function.
##

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

		inv <- x$getinverse()
		if(!is.null(inv)) {
			message("getting cached data.")
			return(inv)
		}
		data <- x$get()
		inv <- solve(data)
		x$setinverse(inv)
		inv
        ## Return a matrix that is the inverse of 'x'
}