[Distr-commits] r477 - pkg/distrMod/R

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

Author: ruckdeschel
Date: 2009-06-17 04:22:50 +0200 (Wed, 17 Jun 2009)
New Revision: 477

Modified:
   pkg/distrMod/R/L2ParamFamily.R
Log:
checkL2deriv gains ... argument to pass on accuracy arguments to E()


Modified: pkg/distrMod/R/L2ParamFamily.R
===================================================================
--- pkg/distrMod/R/L2ParamFamily.R	2009-06-17 01:56:48 UTC (rev 476)
+++ pkg/distrMod/R/L2ParamFamily.R	2009-06-17 02:22:50 UTC (rev 477)
@@ -173,14 +173,14 @@
 
 ## check centering of L2 derivative and Fisher Information
 setMethod("checkL2deriv", "L2ParamFamily", 
-    function(L2Fam, out = TRUE){ 
+    function(L2Fam, out = TRUE, ...){
         dims <- length(L2Fam at param)
         L2deriv <- as(diag(dims) %*% L2Fam at L2deriv, "EuclRandVariable")
 
-        cent <- E(object = L2Fam, fun = L2deriv)
+        cent <- E(object = L2Fam, fun = L2deriv, ...)
         if(out) cat("precision of centering:\t", cent, "\n")
 
-        consist <- E(object = L2Fam, fun = L2deriv %*% t(L2deriv))
+        consist <- E(object = L2Fam, fun = L2deriv %*% t(L2deriv), ...)
         consist <- consist - as(L2Fam at FisherInfo, "matrix")
         if(out){
             cat("precision of Fisher information:\n")