DEoptim error: objective function result has different length than parameter matrix

Question

我正在尝试使用 DEoptim 命令（来自同名的 R 包）来最小化函数，但我收到了这个奇怪的错误“objective 函数结果的长度与参数矩阵不同。 ”我找不到关于这个问题的任何信息，除了一些我无法阅读的已发布 C 代码。

当我尝试通过 ... 参数将附加参数传递给函数时出现错误。在下面的示例中，我修改了 Rosenbrock 函数（取自 DEoptim 文档）以具有第二个参数 pow（我将其设置为 2，以便该示例与文档中的相同）。这行得通。然后我尝试对 Rastrigin 函数执行相同的操作（来自 GenSA 文档）。同样的技巧在这里失败了（但如果我在我的第二个参数中硬编码，优化器工作正常，如在记录的情况下）。

示例代码如下：

library(DEoptim)
## Note that the vector of parameters to be optimized must be the first
## argument of the objective function passed to DEoptim.
Rosenbrock <- function(x,pow){
  x1 <- x[1]
  x2 <- x[2]
  100 * (x2 - x1 * x1)^pow + (1 - x1)^pow
}

lower <- c(-10,-10)
upper <- -lower
set.seed(1234)

# works
DEoptim(Rosenbrock,pow=2, lower, upper)

Rastrigin <- function(x) {
  sum(x^2 - 10 * cos(2 * pi * x)) + 10 * length(x)
}

Rastrigin2 <- function(x,p) {
  sum(x^2 - p * cos(2 * pi * x)) + 10 * length(x)
}

dimension <- 2
lower <- rep(-5.12, dimension)
upper <- rep(5.12, dimension)

# works
DEoptim(fn=Rastrigin,lower=lower,upper=upper,
        control = list(storepopfrom = 1))

# should be same, but doesn't work
DEoptim(fn=Rastrigin2,p=10,lower=lower,upper=upper,
        control = list(storepopfrom = 1))

当然，这个问题出现在一个更复杂的例子中，但我希望对这个简单案例的解释能帮助我解决问题。如果它有任何额外的帮助，最终目标是从 data.table 对象调用函数，其中函数的第一个参数是要最小化的（标量）参数，其余参数是从 data.table.

Answer 1

我必须更深入地寻找根本原因，但看起来您的 p 论点与 optimization/evaluation 过程中某处的另一个论点部分匹配。解决方法是为该参数使用不同的名称。

require(DEoptim)
Rastrigin2 <- function(x,p.) {
  sum(x^2 - p. * cos(2 * pi * x)) + 10 * length(x)
}
lower <- rep(-5.12, 2)
upper <- -lower
de <- DEoptim(Rastrigin2, lower, upper, list(storepopfrom=1), p.=10)

我将提交错误报告。感谢您提供可重现的示例！

DEoptim error: objective function result has different length than parameter matrix

DEoptim error: objective function result has different length than parameter matrix

r

optimization

data.table

differential-evolution