code cleaned up.

nmb10 · nmb10 · commit aaa7673bfdb1 · 2014-04-20T11:38:41.000+04:00
diff --git a/cachematrix.R b/cachematrix.R
@@ -36,15 +36,13 @@ makeCacheMatrix <- function(mtx = matrix()) {
 }
 
 
-
 # cacheSolve
 # looks for inverse of matrix in the cache, if not found, computes inverse and sets cache. Returns
 # inverse of the matrix.
 
 cacheSolve <- function(x, ...) {
     inv <- x$getInverse()
     if(!is.null(inv)) {
-        # message("getting cached data")
         return(inv)
     }
     mtx <- x$get()

Original file line number	Diff line number	Diff line change
`@@ -36,15 +36,13 @@ makeCacheMatrix <- function(mtx = matrix()) {`
`36`	`36`	`}`
`37`	`37`
`38`	`38`
`39`		`-`
`40`	`39`	`# cacheSolve`
`41`	`40`	`# looks for inverse of matrix in the cache, if not found, computes inverse and sets cache. Returns`
`42`	`41`	`# inverse of the matrix.`
`43`	`42`
`44`	`43`	`cacheSolve <- function(x, ...) {`
`45`	`44`	`inv <- x$getInverse()`
`46`	`45`	`if(!is.null(inv)) {`
`47`		`- # message("getting cached data")`
`48`	`46`	`return(inv)`
`49`	`47`	`}`
`50`	`48`	`mtx <- x$get()`