From df55149f36c2159409c81fe94a3762cebb9165f0 Mon Sep 17 00:00:00 2001 From: khollis Date: Sun, 22 Nov 2015 12:32:19 -0600 Subject: [PATCH] Update cachematrix.R Add my functions for Programming Assignment #2 --- cachematrix.R | 34 ++++++++++++++++++++++++++++------ 1 file changed, 28 insertions(+), 6 deletions(-) diff --git a/cachematrix.R b/cachematrix.R index a50be65aa44..396fe0608bb 100644 --- a/cachematrix.R +++ b/cachematrix.R @@ -1,15 +1,37 @@ -## Put comments here that give an overall description of what your -## functions do +## Below are the following functions: +## 1.makeCacheMatrix will create a special "matrix" object that can cache its inverse. +## 2.cacheSolve will compute the inverse of the special "matrix" returned by makeCacheMatrix. If the inverse has already been calculated (and the matrix has not changed), then the cachesolve should retrieve the inverse from the cache. -## Write a short comment describing this function -makeCacheMatrix <- function(x = matrix()) { +## This function will create a the matrix 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 +# The following function returns the inverse of the matrix. It first checks if +# the inverse has already been computed. If so, it gets the result and skips the +# computation. If not, it computes the inverse, sets the value in the cache via +# setinverse function. 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 } +