Added files via upload

abdul-git · abdul-git · commit 6f659a0a6c51 · 2016-02-23T21:46:47.000-06:00
diff --git a/cachematrix.R b/cachematrix.R
@@ -0,0 +1,45 @@
+## Put comments here that give an overall description of what your
+## functions do
+
+## Write a short comment describing this function
+
+## 
+makeCacheMatrix <- function(x = matrix()) {
+## Holds the cache value or if nothing is cached
+        cache <- NULL
+##seting matrix
+        set <- function(y) {
+                x <<- y
+                cache <<- NULL
+        }
+        get <- function() {
+                x
+        }
+        cacheInv <- function(solve) {
+                cache <<- solve
+        }
+        getInv <- function() {
+                cache
+        }
+## get a list - naming fuction for each element of the list 
+        list(set = set, get = get, cacheInv = cacheInv, getInv = getInv)
+}
+
+
+## Write a short comment describing this function
+
+## following function calculates the inverse of matrix created above "makeCacheMatrix"
+cacheSolve <- function(y, ...) {
+## get cache value if it is in cache
+        inverse <- y$getInv()
+        if(!is.null(inverse)) {
+## Display msg if data is cached!
+                message("-- getting cached data --")
+                return(inverse)
+        }
+        data <- y$get()
+        inverse <- solve(data)
+        y$cacheInv(inverse)
+        inverse
+}
+
