From de0cd35efa6ec72857f564fea615c8012f3bf50c Mon Sep 17 00:00:00 2001
From: jvishwakarma <jvishwakarma@walmartlabs.com>
Date: Fri, 8 Dec 2017 16:10:17 +0530
Subject: [PATCH] ProgrammingAssignment2

---
 cachematrix.R | 55 +++++++++++++++++++++++++++++++++++++++++++++------
 1 file changed, 49 insertions(+), 6 deletions(-)

diff --git a/cachematrix.R b/cachematrix.R
index a50be65aa44..82cb06e82af 100644
--- a/cachematrix.R
+++ b/cachematrix.R
@@ -1,15 +1,58 @@
-## Put comments here that give an overall description of what your
-## functions do
-
-## Write a short comment describing this function
+#Create a special "matrix" object that can cache its inverse. 
+#param it takes matrix as an Argument
+#return A list containing four functions
+        # 1 set the value of the matrix
+        # 2 get the value of the matrix
+        # 3 set the value of the inverse of the matrix using the solve() function
+        # 4 get the value of the inverse of the matrix
 
 makeCacheMatrix <- function(x = matrix()) {
+    m <- NULL
+    # Define function to set the value of the matrix. It also clears the old
+    # inverse from the cache
+    set <- function(y) {
+        x <<- y
+        m <<- NULL
+    }
 
+    # Define function to get the value of the matrix
+    get <- function() x
+    # Define function to set the inverse, It only used by getinv() if inv is not cached
+    setinv <- function(inv) inv <<- inv
+    getinv <- function() inv
+    # Return a list of four functions
+    list(set = set, get = get,
+         setinv = setinv,
+         getinv = getinv)
 }
 
 
-## Write a short comment describing this function
+
+# This function computes the inverse of the special "matrix" returned by 
+# makeCacheMatrix above. If the inverse has already been calculated 
+# (and the matrix has not changed), then the cachesolve retrieves the 
+# inverse from the cache.
+# 
+#param x a special matrix created with makeCacheMatrix
+# 
+#return The inverse of the matrix x
+
 
 cacheSolve <- function(x, ...) {
-        ## Return a matrix that is the inverse of 'x'
+    # This fetches the cached value for the inverse
+    inv <- x$getinv()
+    # if inv is not null, returing from cache, by checking not null.
+    if(!is.null(inv)) {
+        message("getting cached inverse matrix")
+        return(inv)
+    }
+    
+    # Fetching matrix data
+    data <- x$get()
+    # Calculating inverse
+    inv <- solve(data, ...)
+    # Setting inverse in cache
+    x$setinv(inv)
+    # Return inverse
+    inv
 }