w/ comments

Author: onurece

cachematrix.R

@@ -1,7 +1,12 @@
-## Put comments here that give an overall description of what your
-## functions do
+## The functions below create a special object that stores a matrix vector and 
+## caches its inverse.
 
-## Write a short comment describing this function
+## This function creates a special "matrix", which is really a list containing 
+## a function to
+## 1. set the value of the vector
+## 2. get the value of the vector
+## 3. set the value of the inverse
+## 4. get the value of the inverse
 
 makeCacheMatrix <- function(x = matrix()) {
   inv <- NULL
@@ -18,7 +23,11 @@ makeCacheMatrix <- function(x = matrix()) {
 }
 
 
-## Write a short comment describing this function
+## The following function calculates the inverse of the special "matrix" created
+## with the above function. However, it first checks to see if the inverse has 
+## already been calculated. If so, it gets the inverse from the cache and skips
+## the computation. Otherwise, it calculates the inverse of the data and sets 
+## the value of the inverse in the cache via the setinv function.
 
 cacheSolve <- function(x, ...) {
         ## Return a matrix that is the inverse of 'x'
@@ -29,6 +38,6 @@ cacheSolve <- function(x, ...) {
   }
   data <- x$get()
   inv <- solve(data, ...)
-  x$setmean(inv)
+  x$setinv(inv)
   m
-}
+}