+ makeCacheMatrix and cacheSolve

Author: paiv

cachematrix.R

@@ -1,15 +1,35 @@
-## Put comments here that give an overall description of what your
-## functions do
-
-## Write a short comment describing this function
+## Matrix inversion is usually a costly computation and there may be some
+## benefit to caching the inverse of a matrix rather than compute it repeatedly.
+##
+## makeCacheMatrix creates a matrix that can cache its inverse.
+##
+## cacheSolve returns inverse of the matrix created by makeCacheMatrix,
+## caching result for possible future calls.
+##
 
+## Creates a special "matrix" object that can cache its inverse.
 makeCacheMatrix <- function(x = matrix()) {
-
+	m <- NULL
+	set <- function(y) {
+		x <<- y
+		m <<- NULL
+	}
+	get <- function() x
+	setsolve <- function(solve) m <- solve
+	getsolve <- function() m
+	list(set=set, get=get, setsolve=setsolve, getsolve=getsolve)
 }
 
 
-## Write a short comment describing this function
-
+## Returns a matrix that is the inverse of 'x'
 cacheSolve <- function(x, ...) {
-        ## Return a matrix that is the inverse of 'x'
+	m <- x$getsolve()
+	if(!is.null(m)) {
+		message("getting cached data")
+		return(m)
+	}
+	data <- x$get()
+	m <- solve(data, ...)
+	x$setsolve(m)
+	m
 }

run_tests.R

@@ -0,0 +1,7 @@
+library("RUnit")
+source("cachematrix.R")
+
+test.suite <- defineTestSuite('cachematrix', file.path('.'))
+test.result <- runTestSuite(test.suite)
+
+printTextProtocol(test.result)

runit.cachematrix.R

@@ -0,0 +1,18 @@
+
+test.makeCacheMatrix <- function() {
+	m <- matrix( sample(rnorm(1000), 16), 4,4)
+	x <- makeCacheMatrix(m)
+	checkTrue(is.list(x))
+	checkTrue(is.function(x$set))
+	checkTrue(is.function(x$get))
+	checkTrue(is.function(x$setsolve))
+	checkTrue(is.function(x$getsolve))
+}
+
+
+test.cacheSolve <- function() {
+	m <- matrix( sample(rnorm(1000), 16), 4,4)
+	x <- makeCacheMatrix(m)
+	r <- cacheSolve(x)
+ 	checkIdentical(r, solve(m))
+}