GA算法在并行计算时返回"non-numeric argument to binary operator"

Question

出于某种原因，当我使用选项 parallel = TRUE 时，GA 算法 returns "non-numeric argument to binary operator"。优化算法似乎在没有该选项或设置 parallel = FALSE 时工作。我已经安装了所有必需的软件包并且它们都是最新的。我使用的 R 版本在 64 位机器上是 3.3.2。

我基本上是在尝试优化的函数中调用一个函数。下面的代码是问题的一般结构的一个非常简单的例子，returns相同的错误代码。

fun_in <- function(a, b, c, d, e)
{
  return(a + b + c + d + e)
}

fun_out <- function(a, b, c, d, e, f, g)
{
 x <- f +g
 y <- fun_in(a = a, b = b, c = c, d = d, e = e)
 z <- x + y
 return(z)
}

library('GA')

a <- 1
b <- 1
c <- 1
d <- 1
e <- 1
f <- 1
g <- 1

fitness <- function(x) -fun_out(a, b, c, d, e, f, g)
lower_bound <- c(1,1,1,1,1,1,1)
upper_bound <- c(5,5,5,5,5,5,5)
coef_names <- c('a', 'b', 'b', 'd', 'e', 'f', 'g')

GA <- ga(type = "real-valued", 
         fitness = fitness, 
         min = lower_bound, 
         max = upper_bound,
         popSize = 100,
         maxiter = 1000,
         pmutation = 0.8,
         pcrossover = 0.8,
         maxFitness = 1e-5,
         names = coef_names,
         parallel = TRUE
)

感谢您的帮助。

Answer 1

fitness() 中参数名称的简单修复

 --- fitness <- function(x) -fun_out(a, b, c, d, e, f, g)
 +++ fitness <- function(x) -fun_out(x[1], x[2], x[3], x[4], x[5], x[6], x[7])

GA算法在并行计算时返回"non-numeric argument to binary operator"

GA-Algorithm returning "non-numeric argument to binary operator" when parallel computing

parallel-processing

r

genetic-algorithm