Modified Version with better comments

Author: osm3000

cachematrix.R

@@ -18,7 +18,10 @@ makeMatrix <- function(x = matrix()) {
 }
 
 
-# The following function calculates the inverse matrix of the special "matrix" created with the above function. However, it first checks to see if the inverse matrix has already been calculated. If so, it gets the inverse matrix from the cache and skips the computation. Otherwise, it calculates the inverse of the matrix and sets the value of the inverse_value in the cache via the setinverse function.
+# The following function calculates the inverse matrix of the special "matrix" created with the above function. 
+# However, it first checks to see if the inverse matrix has already been calculated. If so, it gets the inverse matrix 
+# from the cache and skips the computation. Otherwise, it calculates the inverse of the matrix and sets the value of the inverse_value in the cache via the
+# setinverse function.
 
 cacheSolve <- function(x, ...) {
         ## Return a matrix that is the inverse of 'x'