R BB包-无法将参数传递给目标函数?

创建一个函数,将其他参数“附加”到目标函数中。这里的关键概念是返回值本身是一个函数:

gen_obj_fn <- function( obj_fn, other_pars1, other_pars2 )
{
  function(x) { obj_fn( x, other_pars1, other_pars2 ) }
}

的输出 gen_obj_fn 现在可以直接传递给 BBsolve :

## Previous call using nleqslv():
out <- nleqslv( in_x, myFun, jac = NULL, myParam1, myParam2, ... )

## Equivalent call using BBsolve():
myObjF <- gen_obj_fn( myFun, myParam1, myParam2 )
is.function( myObjF )  ## TRUE
out <- BBsolve( in_x, myObjF )

您还没有展示如何使用 BBsolve . 正如我在评论中所说 BBsolve公司 当然可以接受额外的函数参数。 但你必须说出这些论点。

看看这个例子,了解如何做你想做的事情:

library(nleqslv)

f <- function(x,p1=3,p2=2) {
  y <- numeric(2)
  y[1] <- 10*x[1]+3*x[2]^2 - p1
  y[2] <- x[1]^2 -exp(x[2]) -p2
  y
}

xstart <- c(1,1)
nleqslv(xstart, f)

library(BB)
BBsolve(xstart,f)

尝试稍微不同的值 p1 和 p2 :

nleqslv(xstart,f,p1=2.7,p2=2.1)
BBsolve(xstart,f,p1=2.7,p2=2.1)

两个函数找到相同的解决方案。