R中的優化（最大化）

Question

我有一個想在R中優化（最大化）的函數，任何人都可以幫助我。 我的方程如下：

Y=-10.6134 -3.477*X1 +4.743*X2 +56.10*X3 -0.07671*X4 +0.1005*X1^2-0.0529*X2^2 -25.741*X3^2 +0.000279*X4^2 -0.0984*X1*X2 -1.351*X1*X3 -0.00407*X1*X4 

有了這些限制：

3 <= X1 <= 11 
25 <= X2 <= 45 
0.1 <= X3 <= 10 
10 <= X4 <= 200 

我已經優化，隨着「創先爭優」，「解算器」的功能，也是我嘗試一些軟件包，如「的Optim」和「nlminb」但他們不適合我。 請幫幫我;我真的需要它來完成我的大學項目。 TNX

Answer 1

定義你的函數

f<-function(X1,X2,X3,X4){ 
    -10.6134 -3.477*X1 +4.743*X2 +56.10*X3 -0.07671*X4 + 
    0.1005*X1^2-0.0529*X2^2 -25.741*X3^2 +0.000279*X4^2 - 
    0.0984*X1*X2 -1.351*X1*X3 -0.00407*X1*X4 
} 

寫您的功能是需要的Optim一個參數的功能，因爲這和把負爲您優化

f2 <- function(x) -f(x[1],x[2], x[3],x[4]) 

使用的Optim

optim(par=c(6,35,5,100),fn=f2,lower = c(3,25,0.1,10),upper = c(11,45,10,200),method = "L-BFGS-B")