我正在尝试使用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!
我正在尝试使用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!
g = function(w) eval(f)
uniroot(g, c(0,1000))