Update cachematrix.R

Author: jsiska

cachematrix.R

@@ -1,8 +1,3 @@
-## Put comments here that give an overall description of what your
-## functions do
-
-## Write a short comment describing this function
-
 makeCacheMatrix <- function(x = matrix()) {
   m_inv <- NULL
   get <- function() x
@@ -14,8 +9,6 @@ makeCacheMatrix <- function(x = matrix()) {
 }
 
 
-## Write a short comment describing this function
-
 cacheSolve <- function(x, ...) {
   m_inv <- x$getinv()
   if(!is.null(m_inv)) {