[Distr-commits] r1291 - branches/distr-2.8/pkg/distrMod/R

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

Author: ruckdeschel
Date: 2019-02-22 16:52:46 +0100 (Fri, 22 Feb 2019)
New Revision: 1291

Modified:
   branches/distr-2.8/pkg/distrMod/R/L2ParamFamily.R
Log:
[distrMod] branch 2.8: delete non-significant digits in centering 

Modified: branches/distr-2.8/pkg/distrMod/R/L2ParamFamily.R
===================================================================
--- branches/distr-2.8/pkg/distrMod/R/L2ParamFamily.R	2018-09-15 07:41:52 UTC (rev 1290)
+++ branches/distr-2.8/pkg/distrMod/R/L2ParamFamily.R	2019-02-22 15:52:46 UTC (rev 1291)
@@ -204,7 +204,14 @@
         }
 
         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 sqrt(max(FI))
+		relPrec <- 12-round(log(max(FI),10)/2)
+		prec <- round(prec*10^relPrec)/10^relPrec
+		
         return(list(maximum.deviation = prec))
     })