cachematrix.R

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

## makeCacheMatrix function simply creates a list of functions that
## operates on input data x. The list's functions are designed in such a 
## way that when functions from the list are called the operations are 
## made on objects in environments that is different from the calling 
## environment due to operator '<<-'.
makeCacheMatrix <- function(x = matrix()) {
	#upon calling the function we clear variable mInv containing inverse
	#of matrix
	mInv <- NULL
	
	#define set function that sets data
	set <- function(y) {
		#as this function is called from other environment
		#we use <<- operator
		x <<- y
		
		#new data means we need to clear mInv
		mInv <<- NULL
	}
	
	#returns current data
	get <- function() x
	
	#upon computing a new inverse matrix in cacheSolve this inverse has
	#to be set in the proper environment
	setinverse <- function(inv) mInv <<- inv
	
	#return currently stored matrix inverse - is null unless cacheSolve 
	#function is called first upon the object created by makeCacheMatrix
	getinverse <- function() mInv
	
	#return a new object containing list of functions to make
	#a matrix object with caching functionality
	list(set = set, get = get, 
		 setinverse = setinverse, getinverse = getinverse)
}


## cacheSolve function is checking if the currently passed variable 'x'
## already contains cached version of the matrix inverse and if not it 
## computes the matrix and caches it by using function from 
## x's variable list
cacheSolve <- function(x) {
	#get me current matrix inverse value'
	mInv <- x$getinverse()
	
	#if the returned value is non NULL object, we've already computed
	#matrix inverse for this particular object
	if (!is.null(mInv))
	{
		message("getting cached data")
		return(mInv)
	}
     
    #else we store the data in local variable
	data <- x$get()
	
	#compute the matrix's inverse
	mInv <- solve(data)
	
	#and we set the inverse for the current object to be cached for 
	#possible future use
	x$setinverse(mInv)
	
	#return the computed matrix's inverse
	mInv
}