Added documentation, followed provided rubric.

Author: Eduardo Arino de la Rubia

cachematrix.R

@@ -1,8 +1,30 @@
-## Put comments here that give an overall description of what your
-## functions do
-
-## Write a short comment describing this function
+## library to provide matrix inversion caching
+## 
+## software provides two functions to be used in concert for the purposes
+## of wrapping a matrix object with an adaptor that memoizes inversion calls.
+##
+## uses: to be used in cases where a large matrix must be inverted multiple times,
+##       or if the inversion happens inside of a loop
+##
 
+## makeCacheMatrix
+## 
+## Description
+## Wraps a matrix object in a list with getter/setters for matrix inversion. this
+## function should be called when preparing a matrix for use with the cacheSolve 
+## function.
+##
+## Usage
+## tt <- matrix( rnorm(3000*3000,mean=0,sd=1), 3000, 3000)
+## cachingMatrix <- makeCacheMatrix(tt)
+##
+## Arguments
+## 
+## x     the matrix to be prepared for cached matrix inversion
+##
+## Returns
+##
+## a list with the keys set, get, setsolve, and getsolve
 makeCacheMatrix <- function(x = matrix()) {
   m <- NULL
   set <- function(y) {
@@ -18,18 +40,34 @@ makeCacheMatrix <- function(x = matrix()) {
 }
 
 
-## Write a short comment describing this function
-
+## cacheSolve
+## 
+## Description
+## When provided a matrix prepared by makeCacheMatrix, calls
+## the native solve function to execute matrix inversion. If
+## the matrix is inverted again, a memoized result is provided
+## thereby accelerating response time.
+##
+##
+## Usage
+## tt <- matrix( rnorm(3000*3000,mean=0,sd=1), 3000, 3000)
+## cachingMatrix <- makeCacheMatrix(tt)
+## inverseOfMatrix <- cacheSolve(cachingMatrix) 
+##
+## Arguments
+## 
+## x     the object provided by makeCacheMatrix
+##
+## Returns
+##
+## the inverse of the original matrix, back in a native R matrix
 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
-  
 }