Dear R Helpers,

I need to find the root of following equation. 

0.0016^2 = (0.001*x)^2 + (0.002 * (1-x))^2 + 2 * 0.7 *0.001*0.002 * x * (1-x).

I had tried using "animation " package as follows.



# My Code


library(animation)
ani.options(nmax = 500)


solu = newton.method(function(x) 0.0016^2 - 0.001^2*x^2 - 0.002^2*(1-x)^2 - 2*0.7*0.001*0.002*x*(1-x), 1, c(-1,1))

solu$root


# However, I am not getting the solution. Please guide.

Amy







      
	[[alternative HTML version deleted]]

