final version

Author: kevinyang1704

cachematrix.R

@@ -18,19 +18,6 @@ makeCacheMatrix <- function(x = matrix()) {
         getinv = getinv)
 }
 
-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)
-}
 
 ## This function computes the inverse of the special "matrix" 
 ##returned by makeCacheMatrix above.
@@ -47,15 +34,3 @@ cacheSolve <- function(x, ...) {
   x$setinv(I)
   I
 }
-
-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
-}