[Distr-commits] r893 - branches/distr-2.5/pkg/distrMod/R

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

Author: ruckdeschel
Date: 2013-04-22 18:20:46 +0200 (Mon, 22 Apr 2013)
New Revision: 893

Modified:
   branches/distr-2.5/pkg/distrMod/R/L2ParamFamily.R
Log:
distrMod: checkL2deriv gains output of condition number of Fisher Information

Modified: branches/distr-2.5/pkg/distrMod/R/L2ParamFamily.R
===================================================================
--- branches/distr-2.5/pkg/distrMod/R/L2ParamFamily.R	2013-02-26 10:23:17 UTC (rev 892)
+++ branches/distr-2.5/pkg/distrMod/R/L2ParamFamily.R	2013-04-22 16:20:46 UTC (rev 893)
@@ -198,6 +198,11 @@
             print(100*consist/FI)
         }
 
+        if(out){
+           cat("condition of Fisher information:\n"
+           print(kappa(FI))
+        }
+
         prec <- max(abs(cent), abs(consist))
  
         return(list(maximum.deviation = prec))