我在浏览并允许R语言代码时遇到了一个问题,不知道该怎么解决
cellWise包中cellMCD函数的代码:
objvals[nosteps + 1] <- Objective_cpp(X, W, mu, Sigma, Sigmai) + penalty
我在运行这一行代码时,显示错误:
Error in Objective_cpp(X, W, mu, Sigma, Sigmai) :
could not find function "Objective_cpp"
我的环境里安装了需要的包:cellWise、Rcpp等。
于是我去看R语言的文档,cellWise包中的Objective_cpp函数源代码,但他的代码时这样的
# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
Objective_cpp <- function(X, W, mu, Sigma, Sigmai) {
.Call(`_cellWise_Objective_cpp`, X, W, mu, Sigma, Sigmai)
}
我把上面的这行函数添加进我的工作区,再运行我的那行代码,显示错误:
Error in Objective_cpp(X, W, mu, Sigma, Sigmai) :
object '_cellWise_Objective_cpp' not found
我还是看不到这个函数的源代码,我不知道怎么解决这样的问题,我只是想把这行代码运行起来得到结果,不报错。
请问大家这个问题应该怎么解决,万分感谢!