From 3c7accd26719df518ced82177523471fb4f86110 Mon Sep 17 00:00:00 2001 From: Tim Huygh Date: Mon, 21 Apr 2014 21:28:44 +0200 Subject: [PATCH 1/2] Create makeCacheMatrix.R --- makeCacheMatrix.R | 13 +++++++++++++ 1 file changed, 13 insertions(+) create mode 100644 makeCacheMatrix.R diff --git a/makeCacheMatrix.R b/makeCacheMatrix.R new file mode 100644 index 00000000000..aef29d06f8d --- /dev/null +++ b/makeCacheMatrix.R @@ -0,0 +1,13 @@ +makeCacheMatrix <- function(x = numeric()) { + s <- NULL + set <- function(y) { + x <<- y + s <<- NULL + } + get <- function() x + setsolve <- function(solve) s <<- solve + getsolve <- function() s + list(set = set, get = get, + setsolve = setsolve, + getsolve = getsolve) +} From 1c8af861bed4039692b94eeedd5cc0be2ab52812 Mon Sep 17 00:00:00 2001 From: Tim Huygh Date: Mon, 21 Apr 2014 21:29:05 +0200 Subject: [PATCH 2/2] Create cacheSolve.R --- cacheSolve.R | 11 +++++++++++ 1 file changed, 11 insertions(+) create mode 100644 cacheSolve.R diff --git a/cacheSolve.R b/cacheSolve.R new file mode 100644 index 00000000000..52257cebf24 --- /dev/null +++ b/cacheSolve.R @@ -0,0 +1,11 @@ +cacheSolve <- function(x, ...) { + s <- x$getsolve() + if(!is.null(s)) { + message("getting cached data") + return(s) + } + data <- x$get() + s <- solve(data, ...) + x$setsolve(s) + s +}