HDC调试需求开发（15万预算）,能者速来！>>> 题目先给了一个例子两个function求数列平均数： 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 } 然后需要根据这个例子 先写一个function创造一个可逆的矩阵存储下来，再写一个function求矩阵的逆。