diff --git a/cachematrix.R b/cachematrix.R
index a50be65aa44..c863be8001c 100644
--- a/cachematrix.R
+++ b/cachematrix.R
@@ -1,15 +1,50 @@
 ## Put comments here that give an overall description of what your
 ## functions do
 
-## Write a short comment describing this function
+# as stated in the assignment instructions the main purpose of the function is
+# to create an object with the attached functions that allow for calculating an
+# inverse of the matrix, however the object can be accesded multiple times, but
+# it is updated only at the time when input data changes. It helps to save time
+# when executing and accessing data in the loops.
 
-makeCacheMatrix <- function(x = matrix()) {
 
+## Write a short comment describing this function the functions checks if the
+## input matrix is squared, it is assumed that all input matrices are
+## invertable.
+
+makeCacheMatrix <- function(x = matrix()) {
+  d <- dim(x)
+  if(d[1] != d[2]) stop("The matrix has no equal dimensios. Provide square matrix.")
+  i <- NULL
+  ## contructor of the object in the separate environment using <<-
+  set <- function(y) {
+    x <<- y
+    i <<- NULL
+  }
+  ## getters to obtain the data and store the inverse of the input matrix
+  get <- function() x
+  setinverse <- function(inv) i <<- inv # storing an inverse in separate environment 
+  getinverse <- function() i
+  list(set = set, get = get,
+       setinverse = setinverse,
+       getinverse = getinverse)
 }
 
 
-## Write a short comment describing this function
+## The following function help to access the data from the object created by
+## makeCacheMatrix() If the output was not created it computes the inverse of
+## the matrix, when already exists it gets the content from the object and
+## updates the output only when the input data changes.
 
 cacheSolve <- function(x, ...) {
         ## Return a matrix that is the inverse of 'x'
+  m <- x$getinverse() 
+  if(!is.null(m)) { # checking if the object exists
+    message("getting cached data") # if yes it is jsut returned and no computation is performed 
+    return(m)
+  }
+  data <- x$get() # if not calculate the inverse and return value
+  i <- solve(data)
+  x$setinverse(i)
+  i
 }