[Robast-commits] r1167 - branches/robast-1.2/pkg/RobAStBase/R

[noreply at r-forge.r-project.org]

Author: ruckdeschel
Date: 2019-02-22 16:58:16 +0100 (Fri, 22 Feb 2019)
New Revision: 1167

Modified:
   branches/robast-1.2/pkg/RobAStBase/R/CheckMakeIC.R
Log:
[RobAStBase] branch 1.2: delete non-significant digits in centering 


Modified: branches/robast-1.2/pkg/RobAStBase/R/CheckMakeIC.R
===================================================================
--- branches/robast-1.2/pkg/RobAStBase/R/CheckMakeIC.R	2018-08-18 23:49:27 UTC (rev 1166)
+++ branches/robast-1.2/pkg/RobAStBase/R/CheckMakeIC.R	2019-02-22 15:58:16 UTC (rev 1167)
@@ -82,7 +82,15 @@
         }
 
         prec <- max(abs(cent), abs(consist))
+
+        ## PR 20190222:
+		## deleting all digits beyond 1e-12 (as numeric fuzz) -- 
+		## but check for relative accuracy by means of the "size" of the Fisher information 
+		## measured in by the max(trafo)
+
         names(prec) <- "maximum deviation"
+		relPrec <- 12-round(log(max(trafo),10))
+		prec <- round(prec*10^relPrec)/10^relPrec
 
         if(diagnostic && out){
            print(attr(res$E.IC,"diagnostic"),xname="E.IC")