[Rd] log10 error ?? (PR#1077)

[christian.hoffmann@wsl.ch]

format((1000000*(1+.Machine$double.eps)),digits=18)
[1] "1000000.0000000002"
> .Machine$double.rounding
[1] 5
format(log10(1000000*(1+.Machine$double.eps)),digits=18)
[1] "5.9999999999999991"  # MUST be > 6 !!!???

format((1000000*(1-.Machine$double.eps)),digits=18)
[1] " 999999.9999999998"
> format(log10(1000000*(1-.Machine$double.eps)),digits=18)
[1] "5.9999999999999991"  

format(10^5.9999999999999991,digits=18)
[1] "999999.9999999979"

Version:
 platform = sparc-sun-solaris2.7
 arch = sparc
 os = solaris2.7
 system = sparc, solaris2.7
 status = 
 major = 1
 minor = 3.0
 year = 2001
 month = 06
 day = 22
 language = R

Search Path:
 .GlobalEnv, package:RODBC, package:MASS, package:prlib, package:pllib,
package:mathlib, package:mva, package:strlib, package:chlib, Autoloads,
package:base

Dr.sc.math.Christian W. Hoffmann
Mathematics and Statistical Computing
Landscape Modeling and Web Applications
Swiss Federal Research Institute WSL 
Zuercherstrasse 111
CH-8903 Birmensdorf, Switzerland
phone: ++41-1-739 22 77    fax: ++41-1-739 22 15
e-mail: christian.hoffmann_at_wsl.ch__prevent_spamming
www: http://www.wsl.ch/staff/christian.hoffmann/


-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-devel mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-devel-request@stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._