Update cachematrix.R

Author: Revathi0612

cachematrix.R

@@ -3,13 +3,22 @@
 
 ## Write a short comment describing this function
 
-makeCacheMatrix <- function(x = matrix()) {
-
+makeCacheMatrix <- function() {
+mat <- NULL
+inv_cache <- NULL
+setMatrix <-function(x){
+mat <<-x
+inv_cache<<- NULL
 }
-
-
-## Write a short comment describing this function
-
-cacheSolve <- function(x, ...) {
-        ## Return a matrix that is the inverse of 'x'
+getInverse <- function() {
+if (is.null(inv_cache)){
+inv_cache <<-solve(mat)
+}
+inv_cache
+}
+list(setMatrix=setMatrix,getInverse = getInverse)
+}
+cacheSolve <- function(x,...){
+inv_cache <-x$getInverse()
+inv_cache
 }