* Initial implementation of makeCacheMatrix and cacheSolve for R Programming programming assignment 2/Peer Assessment project

Author: craigching

cachematrix.R

@@ -5,11 +5,28 @@
 
 makeCacheMatrix <- function(x = matrix()) {
 
+  m <- NULL
+  get <- function() x
+  setinverse <- function(inverse) m <<- inverse
+  getinverse <- function() m
+
+  list(get = get,
+       setinverse = setinverse,
+       getinverse = getinverse)
 }
 
 
 ## Write a short comment describing this function
 
 cacheSolve <- function(x, ...) {
         ## Return a matrix that is the inverse of 'x'
+  m <- x$getinverse()
+  if (!is.null(m)) {
+    message("Getting cached data")
+    return(m)
+  }
+  data <- x$get()
+  m <- solve(data)
+  x$setinverse(m)
+  m
 }