cachematrix.R

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

## makeCacheMatrix creates a special "matrix" which contains a list containing functions: to get and set the matrix and get and set the value of the inverse 

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


## cacheSolve first finds in cache inverse matrix calcualted before. If it is found then it is returned from cache. If not, then it inverses the matrix, sotres in cache, and returns the inverse matrix.

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