创建一个二变量函数的图像并在 R 中找到它的最优值

Question

我正在为我的学位做一些任务，但遇到了一个多变量函数成像的问题。以下：

fb<-function(x) {5*x[1]^2+2*x[1]*x[2]+4*x[2]^2+4*x[1]-2*x[2]-2}
> x<--50:50
> y<--50:50
> z<-outer(x,y,fb)
Error in FUN(X, Y, ...) : unused argument (Y)

不仅如此，我还需要找到一个具有最大点的最优值，但是当我尝试不使用向量时它会给出下一个：

 optim(c(0,0), fb, control=list(fnscale=-5))
Error in fn(par, ...) : argument "y" is missing, with no default

请指教。

Answer 1

试试

fb<-function(x, y) {5*x[1]^2+2*x[1]*x[2]+4*x[2]^2+4*x[1]-2*x[2]-2}