R 表达式到函数

R 表达式到函数,r,function,type-conversion,expression,R,Function,Type Conversion,Expression,我试图用uniroot()解一个方程,但在此之前,我必须微分一个表达式 我创建了表达式,然后用D()来区分它,但是我不知道如何将所述表达式返回到一个我可以取其根的函数 到目前为止,我已经: eq<-expression((w^2)*3+((1-w)^2)*2.5+2*w*(1-w)*0.9) f<-D(eq, name="w") eq试试这个(感谢flodel的有用评论): 或者干脆g g = function(w) eval(f) uniroot(g, c(0,1000))

我试图用
uniroot()
解一个方程,但在此之前,我必须微分一个表达式

我创建了表达式,然后用
D()
来区分它,但是我不知道如何将所述表达式返回到一个我可以取其根的函数

到目前为止,我已经:

eq<-expression((w^2)*3+((1-w)^2)*2.5+2*w*(1-w)*0.9)
f<-D(eq, name="w")
eq试试这个(感谢flodel的有用评论):

或者干脆
g
g = function(w) eval(f)
uniroot(g, c(0,1000))