获得;尝试应用非功能“;R中的错误
我试图使用环境缓存,同时计算R中矩阵的倒数,如下所示(代码从此url获得)%20R%20Programming/cachematrix.R:获得;尝试应用非功能“;R中的错误,r,R,我试图使用环境缓存,同时计算R中矩阵的倒数,如下所示(代码从此url获得)%20R%20Programming/cachematrix.R: makeCacheMatrix <- function(x = matrix()) { ## Initialize the inverse property i <- NULL ## Method to set the matrix set <- function( matrix ) {
makeCacheMatrix <- function(x = matrix()) {
## Initialize the inverse property
i <- NULL
## Method to set the matrix
set <- function( matrix ) {
m <<- matrix
i <<- NULL
}
## Method the get the matrix
get <- function() {
## Return the matrix
m
}
## Method to set the inverse of the matrix
setInverse <- function(inverse) {
i <<- inverse
}
## Method to get the inverse of the matrix
getInverse <- function() {
## Return the inverse property
i
}
## Return a list of the methods
list(set = set, get = get,
setInverse = setInverse,
getInverse = getInverse)
}
## Compute the inverse of a special matrix returned by "makeCacheMatrix"
## above. If the inverse is already calculated (and the matrix has not
## changed), then the "cachesolve" should retrieve the inverse from the cache.
cacheSolve <- function(x, ...) {
## Return a matrix that is the inverse of 'x'
m <- x$getInverse()
## Just return the inverse if its already set
if( !is.null(m) ) {
message("getting cached data")
return(m)
}
## Get the matrix from our object
data <- x$get()
## Calculate the inverse using matrix multiplication
m <- solve(data) %*% data
## Set the inverse to the object
x$setInverse(m)
## Return the matrix
m
}
上面的代码给出了以下错误:
x$getInverse()中出错:尝试应用非函数
我的测试方法是否不正确?错误是通过将
d=as.data.frame(d)
传递给函数cacheSolve(d)
然后调用的m可能的副本,这是makeCacheMatrix()的示例程序。
d = matrix(1:1000000, 5000, 200)
d = as.data.frame(d)
cacheSolve(d)
d = matrix(1:1000000, 5000, 200)
d = as.data.frame(d)
cm = makeCacheMatrix(d)
cm$set(d)
cacheSolve(cm)