cachematrix.R

## this function creates a cached matrix with the functions set, get, setinverse, getinverse

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

	

## this function looks up for a cached value and if not available calculates that value (the inverse) and caches it
## Return a matrix that is the inverse of 'x'

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

}