Finished Programming Assignment 2 - 26-04-2014; 14:46

Author: jdelicado

MeanVector.R

@@ -0,0 +1,26 @@
+makeVector <- function(x = numeric()) {
+        m <- NULL
+        set <- function(y) {
+                x <<- y
+                m <<- NULL
+        }
+        get <- function() x
+        setmean <- function(mean) m <<- mean
+        getmean <- function() m
+        list(set = set, get = get,
+             setmean = setmean,
+             getmean = getmean)
+}
+
+
+cachemean <- function(x, ...) {
+        m <- x$getmean()
+        if(!is.null(m)) {
+                message("getting cached data")
+                return(m)
+        }
+        data <- x$get()
+        m <- mean(data, ...)
+        x$setmean(m)
+        m
+}

cachematrix.R

@@ -4,12 +4,38 @@
 ## Write a short comment describing this function
 
 makeCacheMatrix <- function(x = matrix()) {
-
+	cachedmatrix <- NULL
+	set <- function(y) {
+            x <<- y
+	          cachedmatrix <<- NULL
+        	  }
+  get <- function() {
+            x
+		        }
+  setinverse <- function(solve) {
+			              cachedmatrix <<- solve
+			              }
+  getinverse <- function() {
+			            cachedmatrix
+			            }
+  list(set = set, 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'
+
+	cachedmatrix <- x$getinverse()
+        if(!is.null(cachedmatrix)) {
+            message("getting cached data")
+            return(cachedmatrix)
+        }
+        data <- x$get()
+        cachedmatrix <- solve(data)
+        x$setinverse(cachedmatrix)
+        cachedmatrix
 }