From cd8e70f15ad27c3d485e3e6cc2ecbe78a580832f Mon Sep 17 00:00:00 2001 From: kaurala Date: Sat, 25 Apr 2015 20:12:32 +0800 Subject: [PATCH] compute inverse of the matrix --- cachematrix.R | 32 ++++++++++++++++++++++++++------ 1 file changed, 26 insertions(+), 6 deletions(-) diff --git a/cachematrix.R b/cachematrix.R index a50be65aa44..1ad56f44d33 100644 --- a/cachematrix.R +++ b/cachematrix.R @@ -1,15 +1,35 @@ -## Put comments here that give an overall description of what your -## functions do +## assignment2 -## Write a short comment describing this function +## main function 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 +## Compute the inverse 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 } +