表达式转函数

Question

我正在尝试使用uniroot()解决一个方程，但在此之前，我必须区分一个表达式。

我创建了这个表达式，然后用D()进行区分，但我不知道如何将该表达式返回到一个函数中，以便我可以取其根。

到目前为止，我有：

eq<-expression((w^2)*3+((1-w)^2)*2.5+2*w*(1-w)*0.9)
f<-D(eq, name="w")

Thank you in advance for your help!

- Santiago Montoya

Answer 1

尝试这个（感谢flodel提供有用的评论）：

g = function(w) eval(f)
uniroot(g, c(0,1000))

- Ali

---

g <- function(w) eval(f) - flodel