r - 機能する式

Question

を使用して方程式を解こうとしていますuniroot()が、その前に式を区別する必要があります。

式を作成し、それをで区別しますが、その式D()をルートを取ることができる関数に戻す方法がわかりません。

これまでのところ：

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

よろしくお願いします！

Answer 1

これを試してください（有用なコメントをくれたflodelに感謝します）：

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