1

我正在尝试使用两组函数来反转矩阵:- 代码是 :- (评论描述了过程)

## 这个函数创建一个特殊的“矩阵”对象,可以缓存它的逆。

makeCacheMatrix <- function(x = matrix()) {
m <- NULL
set <- function(y){
  x <<- y
  m <<- NULL
}

get <- function() x

##solve function returns the inverse.

setInverse <- function(solve) m <<- solve
getInverse <- function() m

list(set = set, get = get, setInverse = setInverse, getInverse)}

此函数计算上面 makeCacheMatrix 返回的特殊“矩阵”的倒数。如果已经计算了逆(并且矩阵没有改变),那么 cacheSolve 应该从缓存中检索逆。

cacheSolve <- function(x, ...) {  

m <- x$getInverse()

if(!is.null(m)){
  message("HEY HEY")

  return(m)

}

data <- x$get()
m <- solve(data, ...)
x$setInverse(m)
m }

我试图在定义为a<-diag(2,2) Then, 1) cm<-makeCachedMatrixand finally 2)的矩阵 a 上运行它cacheSolve(cm)

number1 步骤执行但是对于 2 号有一个错误说: -

Error in cacheSolve(CachedMatrix) : attempt to apply non-function

关于如何解决这个问题的任何想法?因为这对我来说没有意义。

4

0 回答 0