Changed comments

Author: hackinghat

cachematrix.R

@@ -1,4 +1,4 @@
-## Make a cache matrix with an initially unset inverse
+## Make a cached 'matrix' with an initially unset inverse
 makeCacheMatrix <- function(x = matrix()) {
   # Inverse is initially null
   i <- NULL
@@ -22,16 +22,17 @@ makeCacheMatrix <- function(x = matrix()) {
 ## Memoize the solve function so as to provide a cached version of the inverse, if available, otherwise
 ## calculate, cache and return the inverse.
 cacheSolve <- function(x, ...) {
-  # If the inverse is already calculated return it 
+  # Get the inverse, if the inverse is already calculated return it 
   i <- x$getinv()
   if (!is.null(i)) {
     message("getting cached data")
     return(i)
   }
   # Retrieve the data from the 'matrix'
   data <- x$get()
-  # Solve the matrix to retrieve the inverse
+  # Solve the matrix to retrieve the inverse, passing the additional options from the caller
   i <- solve(data, ...)
+  # Store the result
   x$setinv(i)
   i
 }