rdpeng
diff --git a/‎cachematrix.R‎
Lines changed: 5 additions & 11 deletions b/‎cachematrix.R‎
Lines changed: 5 additions & 11 deletions
@@ -1,9 +1,4 @@
-## Put comments here that give an overall description of what your
-## functions do
-
-## Write a short comment describing this function
-
-# Function to cache inverse of Matrix
+# Function returns a list of functions which can be used to set/get data either to/from cache
 makeCacheMatrix <- function(x = matrix()) {
 	m <- NULL # creating a variable m in global environment
 	set <- function(y){ # This function is used to set matrix direction
@@ -16,17 +11,16 @@ makeCacheMatrix <- function(x = matrix()) {
 		x
 		}
 	setInv <- function(inv) {# Store Inverse to cache
-		m <<- inv
+		m <<- inv # Storing data to variable in global environment
 		}
-	getInv <- function(){
+	getInv <- function(){ # Retrive from Cache
 		m
 		}
 	list (set = set, get = get, setInv = setInv, getInv = getInv)
 }
 
-
-## Write a short comment describing this function
-
+# Function returns inverse of Matrix.
+# Expects matrix as input.
 cacheSolve <- function(x, ...) {
         ## Return a matrix that is the inverse of 'x'
         m <- x$getInv()
Original file line number	Diff line number	Diff line change
`@@ -1,9 +1,4 @@`
`1`		`-## Put comments here that give an overall description of what your`
`2`		`-## functions do`
`3`		`-`
`4`		`-## Write a short comment describing this function`
`5`		`-`
`6`		`-# Function to cache inverse of Matrix`
	`1`	`+# Function returns a list of functions which can be used to set/get data either to/from cache`
`7`	`2`	`makeCacheMatrix <- function(x = matrix()) {`
`8`	`3`	`m <- NULL # creating a variable m in global environment`
`9`	`4`	`set <- function(y){ # This function is used to set matrix direction`
`@@ -16,17 +11,16 @@ makeCacheMatrix <- function(x = matrix()) {`
`16`	`11`	`x`
`17`	`12`	`}`
`18`	`13`	`setInv <- function(inv) {# Store Inverse to cache`
`19`		`- m <<- inv`
	`14`	`+ m <<- inv # Storing data to variable in global environment`
`20`	`15`	`}`
`21`		`- getInv <- function(){`
	`16`	`+ getInv <- function(){ # Retrive from Cache`
`22`	`17`	`m`
`23`	`18`	`}`
`24`	`19`	`list (set = set, get = get, setInv = setInv, getInv = getInv)`
`25`	`20`	`}`
`26`	`21`
`27`		`-`
`28`		`-## Write a short comment describing this function`
`29`		`-`
	`22`	`+# Function returns inverse of Matrix.`
	`23`	`+# Expects matrix as input.`
`30`	`24`	`cacheSolve <- function(x, ...) {`
`31`	`25`	`## Return a matrix that is the inverse of 'x'`
`32`	`26`	`m <- x$getInv()`