From e1372baa79bb4e185261f291920da8ef0a9901f9 Mon Sep 17 00:00:00 2001
From: DaleGHub <daleimbag@gmail.com>
Date: Tue, 17 Dec 2024 12:15:00 +0800
Subject: [PATCH] Cache Matrix codes

---
 cachematrix.R | 36 +++++++++++++++++++++++++++---------
 1 file changed, 27 insertions(+), 9 deletions(-)

diff --git a/cachematrix.R b/cachematrix.R
index a50be65aa44..9ed56b855fc 100644
--- a/cachematrix.R
+++ b/cachematrix.R
@@ -1,15 +1,33 @@
-## Put comments here that give an overall description of what your
-## functions do
-
-## Write a short comment describing this function
-
-makeCacheMatrix <- function(x = matrix()) {
+#Week 3 Asssignment 
 
+#makeCacheMatrix create a special "matrix" object that can cache its inverse
+makeCacheMatrix <- function(x = numeric()) {
+     inv <- NULL
+     set <- function(y) {
+          x <<- y
+          inv <<- NULL
+     }
+     get <- function() x
+     setinverse <- function(inverse) inv <<- inverse
+     getinverse <- function() inv
+     list(set = set, get = get,
+          setinverse = setinverse,
+          getinverse = getinverse)
 }
 
-
-## Write a short comment describing this function
+##cacheSolve 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 should retrieve the inverse from the cache.
 
 cacheSolve <- function(x, ...) {
-        ## Return a matrix that is the inverse of 'x'
+     inv <- x$getinverse()
+     if(!is.null(inv)) {
+          message("getting cached data")
+          return(inv)
+     }
+     data <- x$get()
+     inv <- solve(data, ...)
+     x$setinverse(inv)
+     inv
 }