R: Generate inverse matrix witch caching

cachematrix.R

# Provide getter and setter methods for the given matrix and its
# inverse that is cached in a variable.
makeCacheMatrix <- function(x = matrix()) {
    # Variable used for caching
    inverse <- NULL

    # Set
    set <- function(y) {
        x <<- y

        # Clean the cache
        inverse <<- NULL
    }

    # Get the original (not inverted) matrix
    get <- function() {
        x
    }

    # Store matrix to the cache
    setInverse <- function(inv) {
        inverse <<- inv
    }

    # Get inverse matrix from cache
    getInverse <- function() {
        inverse
    }

    # Return all defined functions in a list
    list(set = set, get = get, setinverse = setInverse, getinverse = getInverse)
}


# Get matrix that is inverse of 'x'
# Function is using functions provided by makeCacheMatrix function to
# retrieve inverted matrix from cache if it present there.
# Example:
# mx <- matrix(1:4, nrow = 2, ncol = 2)
# cached_mx <- makeCacheMatrix(mx)
# cacheSolve(cached_mx)
cacheSolve <- function(x) {
    ## Return a matrix that is the inverse of 'x'
    inverse <- x$getinverse()

    # Get cached inverse matrix
    if(!is.null(inverse)) {
        return(inverse)
    }

    data <- x$get()
    inverse <- solve(data)

    # Cache the result
    x$setinverse(inverse)
    inverse
}