Changed indentation from 2 to 4 spaces.

Author: jfcantin

cachematrix.R

@@ -7,33 +7,33 @@
 #       write guard clause against x != matrix
 #       fix indentation to 4
 makeCacheMatrix <- function(x = matrix()) {
-  inverse <- NULL
-  set <- function(y) {
-    x <<- y
-    inverse <<- NULL
-  }
-  get <- function() x
-  setInverse <- function(inverseMatrix) inverse <<- inverseMatrix
-  getInverse <- function() inverse
-  list(set = set, get = get,
-        setInverse = setInverse,
-        getInverse = getInverse)
+    inverse <- NULL
+    set <- function(y) {
+        x <<- y
+        inverse <<- NULL
+    }
+    get <- function() x
+    setInverse <- function(inverseMatrix) inverse <<- inverseMatrix
+    getInverse <- function() inverse
+    list(set = set, get = get,
+         setInverse = setInverse,
+         getInverse = getInverse)
 }
 
 
 ## Write a short comment describing this function
 
 cacheSolve <- function(x, ...) {
-## Return a matrix that is the inverse of 'x'
-
-  inverse <- x$getInverse()
-  if(!is.null(inverse)) {
-      message("getting cached inverse matrix")
+    ## Return a matrix that is the inverse of 'x'
+    
+    inverse <- x$getInverse()
+    if(!is.null(inverse)) {
+        message("getting cached inverse matrix")
         return(inverse)
-  }
-
-  data <- x$get()
-  inverse <- solve(data, ...)
-  x$setInverse(inverse)
-  inverse
+    }
+    
+    data <- x$get()
+    inverse <- solve(data, ...)
+    x$setInverse(inverse)
+    inverse
 }