R编程：缓存矩阵的逆

Question

我正在关注Coursera上的一个数据科学课程，我有一个关于其中一个分配的问题，我必须对Matrix进行求逆，然后缓存该结果。

基本上我一直googling了，我找到了答案，但有部分答案我还不明白。因为这个原因，我不想提交我的任务，因为我不想提交任何我不完全理解的东西。

从下面的代码我不明白的部分是setInverse定义的部分。 'function（inverse）inv'来自哪里？特别是'反向'从未被定义过？

之后返回一个列表，这对我来说也没什么意义吗？

如果有人可以花时间向我解释这个功能，我会非常感激！

makeCacheMatrix <- function(x = matrix()) { 
    inv <- NULL 
    set <- function(y) { 
     x <<- y 
     inv <<- NULL 
    } 
    get <- function() x 
    setInverse <- function(inverse) inv <<- inverse 
    getInverse <- function() inv 
    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' 
    inv <- x$getInverse() 
    if (!is.null(inv)) { 
     message("getting cached data") 
     return(inv) 
    } 
    mat <- x$get() 
    inv <- solve(mat, ...) 
    x$setInverse(inv) 
    inv 
} 

Answer 1

我不知道您的具体任务，但我会稍微改变你的函数：

makeCacheMatrix <- function(x = matrix()) { 
    inv <- NULL 
    set <- function(y) { 
    x <<- y 
    inv <<- NULL 
    } 
    get <- function() x 
    setInverse <- function() inv <<- solve(x) #calculate the inverse 
    getInverse <- function() inv 
    list(set = set, 
     get = get, 
     setInverse = setInverse, 
     getInverse = getInverse) 
} 

然后，您可以使用它像这样：

funs <- makeCacheMatrix() 
funs$set(matrix(1:4, 2)) 
funs$get() 
#  [,1] [,2] 
#[1,] 1 3 
#[2,] 2 4 
funs$setInverse() 
funs$getInverse() 
#  [,1] [,2] 
#[1,] -2 1.5 
#[2,] 1 -0.5 

的锻炼可能是打算教你closures。重点是x和inv存储在set,get,setInverse,getInverse功能的封闭环境中。这意味着它们被定义的环境，即通过makeCacheMatrix()调用创建的环境。看到这一点：

ls(environment(funs$set)) 
#[1] "get"  "getInverse" "inv"  "set"  "setInverse" "x" 

正如你看到的不仅是在这种环境四大功能，而且还x和inv对象（使用<<-的结果）。而get和getInverse函数只能从它们的封闭环境中获取这些函数。