From c68df11a99d1b2d045cc6b8542e8ccfb1cd9050b Mon Sep 17 00:00:00 2001 From: reputableDEV Date: Mon, 30 Jun 2025 10:47:57 -0700 Subject: [PATCH] Update cachematrix.R --- cachematrix.R | 26 +++++++++++++++++++++++--- 1 file changed, 23 insertions(+), 3 deletions(-) diff --git a/cachematrix.R b/cachematrix.R index a50be65aa44..93c4acc61e1 100644 --- a/cachematrix.R +++ b/cachematrix.R @@ -2,14 +2,34 @@ ## functions do ## Write a short comment describing this function +A pair of functions that cache the inverse of a matrix. +This function creates a special “matrix” object that can cache its inverse. makeCacheMatrix <- function(x = matrix()) { - + inv <- NULL + set <- function(y){ + x <<- y + inv <<- NULL + } + get <- function() x + setInverse <- function(solveMatrix) inv <<- solveMatrix + getInverse <- function() inv + list(set = set, get = get, setInverse = setInverse, getInverse = getInverse) } - ## Write a short comment describing this function +## This function computes the inverse of the special "matrix" returned by makeCacheMatrix above. cacheSolve <- function(x, ...) { - ## Return a matrix that is the inverse of '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 }