Added comments to functions

Author: pagratios

cachematrix.R

@@ -1,36 +1,57 @@
-# Create an object with new 
+# Create a list object as to be able to calculate 
+# Inverse Matrix using cache
 makeCacheMatrix <- function(m = matrix()) 
 {
 	inv <- NULL
 
+	# Set new matrix object and make cached inverse NULL
 	setMatrix <- function(new_m)
 	{
 		m <<- new_m
 		inv <<- NULL
 	}
 
+	# get matrix object
 	getMatrix <- function () m
 
+	# Set Inverse matrix to a global variable as to use
+	# it for inverse cache
 	setInverse <- function(new_inv) inv <<- new_inv
-	getInverse <- function()a < inv
 
+	# get cached Inversed Matrix
+	getInverse <- function() inv
+	
+	# return list with function
 	list(setMatrix = setMatrix,
 		 getMatrix = getMatrix,
 		 setInverse = setInverse,
 		 getInverse = getInverse)
 }
 
+# This function should take as argument a list that be created
+# using makeCacheMatrix
 cacheSolve <- function(m, ...) 
 {
-    ## Return a matrix that is the inverse of 'x'
+    # First take cached Inversed Matrix
 	inv <- m$getInverse()
+	
+	# if the cached Inversed matrix is not NULL then return it 
+	# and take advantage from cache
 	if(!is.null(inv))
 	{
 		message("*** Inverse Matrix is from cache ***")
 		return(inv)
 	}
+	
+	# otherwise get matrix
 	temp_matrix <- m$getMatrix()
+	
+	# calculate inverse matrix
 	inv <- solve(temp_matrix)
+	
+	# put new calculated inversed matrix to cache 
+	# for future use if call this function again
+	# and matrix do not cache
 	m$setInverse(inv)
 	inv
 }