From noreply at r-forge.r-project.org  Mon Apr 22 18:20:47 2013
From: noreply at r-forge.r-project.org (noreply at r-forge.r-project.org)
Date: Mon, 22 Apr 2013 18:20:47 +0200 (CEST)
Subject: [Distr-commits] r893 - branches/distr-2.5/pkg/distrMod/R
Message-ID: <20130422162047.32BA0183CE8@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))


From noreply at r-forge.r-project.org  Mon Apr 22 18:21:50 2013
From: noreply at r-forge.r-project.org (noreply at r-forge.r-project.org)
Date: Mon, 22 Apr 2013 18:21:50 +0200 (CEST)
Subject: [Distr-commits] r894 - branches/distr-2.5/pkg/distrMod/R
Message-ID: <20130422162150.EB5A61844FA@r-forge.r-project.org>

Author: ruckdeschel
Date: 2013-04-22 18:21:50 +0200 (Mon, 22 Apr 2013)
New Revision: 894

Modified:
   branches/distr-2.5/pkg/distrMod/R/L2ParamFamily.R
Log:
.. too fast with commit...

Modified: branches/distr-2.5/pkg/distrMod/R/L2ParamFamily.R
===================================================================
--- branches/distr-2.5/pkg/distrMod/R/L2ParamFamily.R	2013-04-22 16:20:46 UTC (rev 893)
+++ branches/distr-2.5/pkg/distrMod/R/L2ParamFamily.R	2013-04-22 16:21:50 UTC (rev 894)
@@ -199,7 +199,7 @@
         }
 
         if(out){
-           cat("condition of Fisher information:\n"
+           cat("condition of Fisher information:\n")
            print(kappa(FI))
         }