我试图用uniroot()解一个方程,但在此之前,我必须微分一个表达式。
到目前为止,我有:
eq<-expression((w^2)*3+((1-w)^2)*2.5+2*w*(1-w)*0.9)
f<-D(eq, name="w")提前感谢您的帮助!
发布于 2012-10-06 18:25:38
试试这个(感谢flodel的有用评论):
g = function(w) eval(f)
uniroot(g, c(0,1000))https://stackoverflow.com/questions/12758810
复制相似问题