Whoops. Hit "send" too quickly.

Jason Turner wrote:
tol <- sqrt(.Machine$double.eps)
dcrn[(fn - inve[2]) < tol]

that should be dcrn[abs(fn - inve[2]) < tol]

--
Indigo Industrial Controls Ltd.
http://www.indigoindustrial.co.nz
64-21-343-545
[EMAIL PROTECTED]

______________________________________________
[EMAIL PROTECTED] mailing list
https://www.stat.math.ethz.ch/mailman/listinfo/r-help

Reply via email to