[Robast-commits] r306 - branches/robast-0.7/pkg/RobAStBase/R

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

Author: ruckdeschel
Date: 2009-06-17 04:25:04 +0200 (Wed, 17 Jun 2009)
New Revision: 306

Modified:
   branches/robast-0.7/pkg/RobAStBase/R/IC.R
Log:
checkIC gains ... argument to pass on accuracy arguments to E()


Modified: branches/robast-0.7/pkg/RobAStBase/R/IC.R
===================================================================
--- branches/robast-0.7/pkg/RobAStBase/R/IC.R	2009-06-17 01:57:58 UTC (rev 305)
+++ branches/robast-0.7/pkg/RobAStBase/R/IC.R	2009-06-17 02:25:04 UTC (rev 306)
@@ -57,21 +57,21 @@
     })
 ## check centering and Fisher consistency
 setMethod("checkIC", signature(IC = "IC", L2Fam = "L2ParamFamily"), 
-    function(IC, L2Fam, out = TRUE){ 
+    function(IC, L2Fam, out = TRUE, ...){
         D1 <- L2Fam at distribution
         if(dimension(Domain(IC at Curve[[1]])) != dimension(img(D1)))
             stop("dimension of 'Domain' of 'Curve' != dimension of 'img' of 'distribution' of 'L2Fam'")
 
         trafo <- trafo(L2Fam at param)
         IC1 <- as(diag(dimension(IC at Curve)) %*% IC at Curve, "EuclRandVariable")
-        cent <- E(D1, IC1)
+        cent <- E(D1, IC1, ...)
         if(out)
             cat("precision of centering:\t", cent, "\n")
 
         dims <- length(L2Fam at param)
         L2deriv <- as(diag(dims) %*% L2Fam at L2deriv, "EuclRandVariable")
 
-        consist <- E(D1, IC1 %*% t(L2deriv)) - trafo
+        consist <- E(D1, IC1 %*% t(L2deriv), ...) - trafo
         if(out){
             cat("precision of Fisher consistency:\n")
             print(consist)