added some comments

bisio · bisio · commit 9997370e0c97 · 2014-07-17T22:31:04.000+02:00
diff --git a/cachematrix.R b/cachematrix.R
@@ -22,7 +22,9 @@ makeCacheMatrix <- function(x = matrix()) {
 }
 
 
-## Write a short comment describing this function
+## calculate and returns inverse of a matrix data structure (as returned by makeCacheMatrix).
+## Caches inverse for subsequent calls. i.e. called more than one time on the same argument 
+## returns the cached version of the result instead of computing it again.
 
 cacheSolve <- function(x, ...) {
         x.inv <- x$get.inv()

Original file line number	Diff line number	Diff line change
`@@ -22,7 +22,9 @@ makeCacheMatrix <- function(x = matrix()) {`
`22`	`22`	`}`
`23`	`23`
`24`	`24`
`25`		`-## Write a short comment describing this function`
	`25`	`+## calculate and returns inverse of a matrix data structure (as returned by makeCacheMatrix).`
	`26`	`+## Caches inverse for subsequent calls. i.e. called more than one time on the same argument`
	`27`	`+## returns the cached version of the result instead of computing it again.`
`26`	`28`
`27`	`29`	`cacheSolve <- function(x, ...) {`
`28`	`30`	`x.inv <- x$get.inv()`