求解R中的一个无约束优化问题

我正在做一个作业，我需要找到一个函数的极值点

我的最大化函数是

（x*26.7-2*x^2）/2

。该方程是插入约束的目标函数

为了找到极值点，我必须计算一阶导数，把这个函数设为零，然后解这个方程。我知道如何手工解决这样的问题，但我想知道在R中实现它的合适方法是什么

以下是一个玩具示例：

# First order derivative
f=expression((x*26.7-2*x^2)/2)
derivative <- D(f, 'x')

命令

polyroot（c（0，26.7/2，-1））

给出了您的问题的答案，但我不确定这是否是您正在寻找的函数。尝试

nlm（函数（x）-（x*26.7-2*x^2）/2，0）$estimate

或

optim（0，函数（x）-（x*26.7-2*x^2）/2）$par

，您将获得

6.675

。

proc optmodel;

   var x;

   max z=(x*26.7-2*x**2)/2;

   solve;


   print x;

   quit;