使用`DEoptim（）`优化sigmoid函数

Question

对于大学项目，我的任务是构建一个Shiny应用程序，它将使用DEoptim::DEoptim()来优化（最小化）各种sigmoid函数。

这是一个简单的sigmoid函数，用于说明目的：

fxn <- function(x) {
    1 / (1 + exp(-x))
}

现在我适合这样的数据：

x=c(-5,-4,-3,-2,-1,0,1,2,3,4,5) 
y <- fxn(x)
plot(x,y)

但现在我需要使用DEoptim()来优化fxn。我尝试按照帮助页面示例执行此操作：

library(DEoptim)
lower <- c(-10,-10)
upper <- -lower
set.seed(1234)
DEoptim(fxn, lower, upper)
Error in DEoptim(fxn, lower, upper) : 
  objective function result has different length than parameter matrix

但我被困在错误信息上。从长远来看，我需要在一系列fxns中工作。任何帮助深表感谢。