Some minor modification.

kaliczp · kaliczp · commit b45d81d6384d · 2014-11-23T22:22:34.000+01:00
diff --git a/cachematrix.R b/cachematrix.R
@@ -28,7 +28,7 @@ cacheSolve <- function(x, ...) {
   ## Return a matrix that is the inverse of 'x'
 inv <- x$getinverse()
 if(!is.null(inv)) {
-  message("getting cached matrix")
+  message("getting cached inverse matrix")
   return(inv)
 }
 data <- x$get()

Original file line number	Diff line number	Diff line change
`@@ -28,7 +28,7 @@ cacheSolve <- function(x, ...) {`
`28`	`28`	`## Return a matrix that is the inverse of 'x'`
`29`	`29`	`inv <- x$getinverse()`
`30`	`30`	`if(!is.null(inv)) {`
`31`		`- message("getting cached matrix")`
	`31`	`+ message("getting cached inverse matrix")`
`32`	`32`	`return(inv)`
`33`	`33`	`}`
`34`	`34`	`data <- x$get()`