From 0a074ceb3c094c6f99726e356bc6c0def297bcc3 Mon Sep 17 00:00:00 2001 From: Arubinstein Date: Sat, 28 Jan 2017 17:54:35 -0500 Subject: [PATCH] Homework Assignment --- cachematrix.R | 33 +++++++++++++++++++++++++++------ 1 file changed, 27 insertions(+), 6 deletions(-) diff --git a/cachematrix.R b/cachematrix.R index a50be65aa44..345d81d1129 100644 --- a/cachematrix.R +++ b/cachematrix.R @@ -1,15 +1,36 @@ -## Put comments here that give an overall description of what your -## functions do +## Caching the Inverse of a Matrix: Matrix inversion is usually a costly computation ## there may be some benefit to caching the inverse of a matrix rather than compute it ## repeatedly. -## Write a short comment describing this function +## function creates a "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(inverse) inv <<- inverse + 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" created by +## makeCacheMatrix above. If the inverse has already been calculated (and the +## matrix has not changed), then it 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) + } + mat <- x$get() + inv <- solve(mat, ...) + x$setInverse(inv) + inv +} \ No newline at end of file