Refactoring

Inverted if statement to eliminate early return
Fixed some comments

Author: Jye

cachematrix.R

@@ -4,10 +4,13 @@
 ##Create a matrix whose inverse can be cached
 makeCacheMatrix <- function(x = matrix()) {
   inverse <- NULL
+  
+  ##Assigns a new matrix and invalidates the inverse cache
   set <- function(y) {
     x <<- y
     inverse <<- NULL
   }
+  
   get <- function() x
   setInverse <- function(i) inverse <<- i
   getInverse <- function() inverse
@@ -16,14 +19,14 @@ makeCacheMatrix <- function(x = matrix()) {
 
 ## Returns the cached inverse of matrix 'x'. If inverse of 'x' is not cached, it is calculated and cached.
 cacheSolve <- function(x, ...) {
-  ## Return a matrix that is the inverse of 'x'
+  
+  ##Calculate and cache inverse if necessary
   inverse <- x$getInverse()
-  if (!is.null(inverse)) {
-    message("getting cached data")
-    return(inverse)
+  if (is.null(inverse)) {
+    data <- x$get()
+    inverse <- solve(data, ...)
+    x$setInverse(inverse)
   }
-  data <- x$get()
-  inverse <- solve(data, ...)
-  x$setInverse(inverse)
-  inverse
+  
+  x$getInverse()
 }