R help - Nov 2008 - can you help how to solve the equation with intregration and complex ,

library(elliptic)

f <- function (x) {myintegrate(function(t){Im(as.complex(1+(x*t)i))},
1,2)-1} 

uniroot(f,lower = -2, upper = 2)
> f <- function (x) {myintegrate(function(t){Im(as.complex(1+(x*t)i))},
> 1,2)-1} 
Error: unexpected symbol in "f <- function (x)
{myintegrate(function(t){Im(as.complex(1+(x*t)i"
> 
> uniroot(f,lower = -2, upper = 2)
Error in f(x) : object "ti" not found


thank you


-- 
View this message in context:
http://www.nabble.com/can-you-help-how-to-solve-the-equation-with-intregration-and-complex-%2C-tp20489902p20489902.html
Sent from the R help mailing list archive at Nabble.com.