Adding comments

Jessy Ouellette · Jessy Ouellette · commit 33d83c80ccb7 · 2015-06-19T08:06:47.000-03:00
diff --git a/cachematrix.R b/cachematrix.R
@@ -1,7 +1,8 @@
-## Put comments here that give an overall description of what your
-## functions do
+# These functions are used to perform matrix inversion using caching to reduce 
+# load
 
-## Write a short comment describing this function
+# This function will create a special list that contains methods to set a matrix
+# and cache its inverse
 
 makeCacheMatrix <- function(x = matrix()) {
   i <- NULL
@@ -18,7 +19,8 @@ makeCacheMatrix <- function(x = matrix()) {
 }
 
 
-## Write a short comment describing this function
+# This function takes in a cachedMatrix and returns its invers. It only 
+# calculates the inverse if it isn't cahced already
 
 cacheSolve <- function(x, ...) {
   i <- x$getInverse()
@@ -27,7 +29,7 @@ cacheSolve <- function(x, ...) {
     return(i)
   }
   data <- x$get()
-  i <- solve(data)
+  i <- solve(data, ...)
   x$setInverse(i)
   i
 }

Original file line number	Diff line number	Diff line change
`@@ -1,7 +1,8 @@`
`1`		`-## Put comments here that give an overall description of what your`
`2`		`-## functions do`
	`1`	`+# These functions are used to perform matrix inversion using caching to reduce`
	`2`	`+# load`
`3`	`3`
`4`		`-## Write a short comment describing this function`
	`4`	`+# This function will create a special list that contains methods to set a matrix`
	`5`	`+# and cache its inverse`
`5`	`6`
`6`	`7`	`makeCacheMatrix <- function(x = matrix()) {`
`7`	`8`	`i <- NULL`
`@@ -18,7 +19,8 @@ makeCacheMatrix <- function(x = matrix()) {`
`18`	`19`	`}`
`19`	`20`
`20`	`21`
`21`		`-## Write a short comment describing this function`
	`22`	`+# This function takes in a cachedMatrix and returns its invers. It only`
	`23`	`+# calculates the inverse if it isn't cahced already`
`22`	`24`
`23`	`25`	`cacheSolve <- function(x, ...) {`
`24`	`26`	`i <- x$getInverse()`
`@@ -27,7 +29,7 @@ cacheSolve <- function(x, ...) {`
`27`	`29`	`return(i)`
`28`	`30`	`}`
`29`	`31`	`data <- x$get()`
`30`		`- i <- solve(data)`
	`32`	`+ i <- solve(data, ...)`
`31`	`33`	`x$setInverse(i)`
`32`	`34`	`i`
`33`	`35`	`}`