search for: tp16763482p16763482

...rate(f,lower=0,upper=sqrt(a^2*(k-1)/(k-a^2)),rel.tol=.Machine$double.eps^0.25) -n*integrate(g,lower=0,upper=sqrt(a^2*k/(k+1-a^2)),rel.tol=.Machine$double.eps^0.25) } lower=1.4, upper=2) print(unlist(out))} -- View this message in context: http://www.nabble.com/help-me-to-debug-this-part-of-code--tp16763482p16763482.html Sent from the R help mailing list archive at Nabble.com.