我正在尝试在R中执行以下代码
# Check convergence
if(last.loop == TRUE){
converge <- TRUE
if(verbose==TRUE){print (paste0("convergence reached at iteration #", i))}
}
delta.r.ah.hot <- (r.ah[hot[pair]] - r.ah.hot.previous) / r.ah[hot[pair]] * 100
delta.r.ah.cold <- (r.ah[cold[pair]] - r.ah.cold.previous) / r.ah[cold[pair]] * 100
if(verbose==TRUE){
print (paste("delta rah hot", delta.r.ah.hot))
print (paste("delta rah cold", delta.r.ah.cold))
print ("### -------")
}
if(abs(delta.r.ah.hot) < 1 & abs(delta.r.ah.cold) < 1){last.loop <- TRUE}
}
### End interactive process --------------------------------------------------
我收到此错误消息:
if(abs(delta.r.ah.hot)<1&abs(delta.r.ah.cold)<1)中的错误{ 缺少需要TRUE / FALSE的值
我不知道为什么会这样。似乎NA发生在delta.r.ah.hot
或delta.r.ah.cold
中。
如何解决? 谢谢您的帮助!!!