cachematrix.R: Added {} after functions to improve readability

shawn4github · shawn4github · commit d5c32d6969f6 · 2014-10-23T22:01:41.000+08:00
diff --git a/cachematrix.R b/cachematrix.R
@@ -15,18 +15,25 @@ makeCacheMatrix <- function(x = matrix()) {
         }
 	## Modify existing matrix, and initially clean cache to empty 	
 
-	get <- function() x					
+	get <- function() { 					
 	## Returns original matrix
-        
-	setinverse <- function(solve) inverseX <<- solve
+
+        	x
+	}
+
+	setinverse <- function(solve) { 
 	## compute inverse matrix, assign to inverseX, and store it to cache
-        
-	getinverse <- function() inverseX			
+
+        	inverseX <<- solve
+	}
+
+	getinverse <- function() { 			
 	## Returns matrix inverse
         
-	list(set = set, get = get,
-             setinverse = setinverse,
-             getinverse = getinverse)
+		inverseX
+	}
+
+	list(set = set, get = get, setinverse = setinverse, getinverse = getinverse)
 }
 
 
