Update cachematrix.R

effort rdpeng#1

Author: dndhall2001c

cachematrix.R

@@ -2,14 +2,43 @@
 ## functions do
 
 ## Write a short comment describing this function
+##crete a with makeCacheMatrix framework
+## > a<- makeCacheMatrix()
+##create Matrix
+## > a$set(1:4, 2)
+##inspect Matrix
+## > a$get()
+## run cachesolve(a) to see if the results are cached
+## > cachesolve(a)
+## Run again to see cached results
+## > cachesolve(a)
 
 makeCacheMatrix <- function(x = matrix()) {
-
+     m <- NULL
+     set <- function(y ,z) {
+          x <<- matrix(y, nrow=z)
+          m <<- NULL
+     }
+     get <- function() x
+     setmatrix <- function(solve) m <<- solve
+     getmatrix <- function() m
+     list(set = set, get = get,
+          setmatrix = setmatrix,
+          getmatrix = getmatrix)
 }
 
 
 ## Write a short comment describing this function
 
 cacheSolve <- function(x, ...) {
         ## Return a matrix that is the inverse of 'x'
+     m <- x$getmatrix()
+     if(!is.null(m)) {
+          message("getting cached data")
+          return(m)
+     }
+     data <- x$get()
+     m <- solve(data, ...)
+     x$setmatrix(m)
+     m
 }