如何解决SQL R服务中由optim R'L-BFGS-B'提供的非限定值
我注意到有些奇怪,下面的代码可以在R studio中运行,但是在Microsoft R服务下执行时会抛出错误:“由optim ERROR提供的非限定值”,请您帮助我。 / p>
FCT_nRMSE <- function(x,dataG,dataP) {
RMSE <- 0
for (col in 1:ncol(dataG)) {
for (t in 1:nrow(dataG)) {
RMSE <- RMSE + (dataP[t,col]-dataG[t,col]*x[t])^2
}
}
RMSE <- sqrt(RMSE/(ncol(dataG)*nrow(dataG)))
nRMSE <- RMSE/mean(dataP)*100
return(nRMSE)
}
optim_alfa <- optim(par = runif(21,24**`strong text`**),fn = FCT_nRMSE,dataG = DF_G_pvmodel_FIT,dataP = DF_P_pvmodel_FIT,method = "L-BFGS-B",lower = rep(0,21),upper = rep(24,21))
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。