r - R Keras Particule Swarm：参数不是数字或逻辑的

Question

我正在尝试使用 psoptim 优化我的人工神经网络。脚本停止并显示错误：

Error in while (stats.iter < p.maxit && stats.feval < p.maxf && error >  : 
  missing value where TRUE/FALSE needed
In addition: There were 18 warnings (use warnings() to see them)

所以我使用 warnings() 来查看发生了什么：

mean.default(training_result$metrics$val_accuracy[-5:-1]) :
  argument is not numeric or logical: returning NA

似乎错误来自适应度函数，但我不知道为什么返回 NA：

fitness <- mean(training_result$metrics$val_accuracy[-5:-1]) - abs(mean(training_result$metrics$val_loss[-5:-1]) - mean(training_result$metrics$loss[-5:-1]))
  return(fitness)

你有什么想法，怎么了？谢谢。

标签： rkerasnanumericparticle-swarm