将参数传递给r中的nloptr

我正在使用“nloptr”优化r中的一个简单函数，我很难将参数传递到目标函数中。以下是我正在使用的代码：

require("nloptr")

Correl <- matrix(c(1,-.3,-.3,1), nrow=2, ncol=2)
Wghts <- c(.01,.99)
floor <- .035
expret <- c(.05,.02)
pf.return <- function(r, x, threshold=0){

return(r * x - threshold)
}

pf.vol <- function(x, C){

return(sqrt(x %*% C %*% x))
}

require（“nloptr”）
Correl对后代来说是正常的：

我重写了函数，使它们具有相同的参数集，顺序相同

我还省略了
x=Wghts
位，因为这是我试图搜索的参数