Added comments

Author: nokz

cachematrix.R

@@ -1,7 +1,10 @@
-## Put comments here that give an overall description of what your
-## functions do
+## makeCacheMatrix and cacheSolve are two functions that allow 
+## for the caching the calculation of the inverse of a matrix. 
+## The functions assume that the matrix is always invertible. 
 
-## Write a short comment describing this function
+## makeCacheMatrix function creates a special matrix object that 
+## can cache its inverse. It allows for getting and setting the
+## matrix and its inverse. 
 
 makeCacheMatrix <- function(x = matrix()) {
     i <- NULL
@@ -20,10 +23,11 @@ makeCacheMatrix <- function(x = matrix()) {
 }
 
 
-## Write a short comment describing this function
+## cacheSolve computes the inverse of the matrix returned by makeCacheMatrix.
+## If the inverse has already been calculated the function, it will be
+## retrieved from the cache. 
 
 cacheSolve <- function(x, ...) {
-        ## Return a matrix that is the inverse of 'x'
     i <- x$getinverse()
 
     if(!is.null(i)) {
@@ -33,6 +37,6 @@ cacheSolve <- function(x, ...) {
 
     data <- x$get()
     i <- solve(data, ...)
-    x$setmean(i)
+    x$setinverse(i)
     i
 }