Modified Version with better comments

osm3000 · osm3000 · commit 5bd2f30ab0ea · 2014-04-27T06:23:10.000+02:00
diff --git a/cachematrix.R b/cachematrix.R
@@ -1,6 +1,9 @@
-## Write a short comment describing this function
-
-makeCacheMatrix <- function(x = matrix()) {
+# The first function, makeMatrix creates a special "matrix", which is really a list containing a function to
+# set the value of the matrix
+# get the value of the matrix
+# set the value of the inverse of the matrix
+# get the value of the inverse of the matrix
+makeMatrix <- function(x = matrix()) {
         m <- NULL
         set <- function(y = matrix()) {
                 x <<- y
@@ -15,7 +18,7 @@ makeCacheMatrix <- function(x = matrix()) {
 }
 
 
-## Write a short comment describing this 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'
