what is wrong with this code?

dlogl <- -(n/theta)-sum((y/(theta)^2)*((1-exp(y/theta))/(1+exp(y/theta)))

d2logl <- (n/theta^2) - sum((-2y/theta^3)*(1-exp(y/theta))/(1+exp(y/theta)))
- sum(((2*y/theta^4)*exp(y/theta))/((1+exp(y/theta))^2))

returns the error message:
Error: unexpected symbol in:
"dlogl <- -(n/theta)-sum((y/(theta)^2)*((1-exp(y/theta))/(1+exp(y/theta)))
d2logl"

do you know what i have done wrong

View this message in context: http://www.nabble.com/what-is-wrong-with-this-code--tp23623227p23623227.html
Sent from the R help mailing list archive at Nabble.com.