[Distr-commits] r476 - branches/distr-2.2/pkg/distrMod/R

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

Author: ruckdeschel
Date: 2009-06-17 03:56:48 +0200 (Wed, 17 Jun 2009)
New Revision: 476

Modified:
   branches/distr-2.2/pkg/distrMod/R/Expectation.R
Log:
expectation gains ... argument to pass on accuracy arguments

Modified: branches/distr-2.2/pkg/distrMod/R/Expectation.R
===================================================================
--- branches/distr-2.2/pkg/distrMod/R/Expectation.R	2009-06-17 01:09:44 UTC (rev 475)
+++ branches/distr-2.2/pkg/distrMod/R/Expectation.R	2009-06-17 01:56:48 UTC (rev 476)
@@ -2,24 +2,24 @@
 setMethod("E", signature(object = "L2ParamFamily", 
                          fun = "EuclRandVariable", 
                          cond = "missing"),
-    function(object, fun, useApply = TRUE){
-        return(E(object = object at distribution, fun = fun, useApply = useApply))
+    function(object, fun, useApply = TRUE, ...){
+        return(E(object = object at distribution, fun = fun, useApply = useApply, ...))
     })
 setMethod("E", signature(object = "L2ParamFamily", 
                          fun = "EuclRandMatrix", 
                          cond = "missing"),
-    function(object, fun, useApply = TRUE){
+    function(object, fun, useApply = TRUE, ...){
         matrix(E(object = object, fun = as(fun, "EuclRandVariable"), 
-                 useApply = useApply), nrow = nrow(fun))
+                 useApply = useApply, ...), nrow = nrow(fun))
     })
 setMethod("E", signature(object = "L2ParamFamily", 
                          fun = "EuclRandVarList", 
                          cond = "missing"),
-    function(object, fun, useApply = TRUE){
+    function(object, fun, useApply = TRUE, ...){
         nrvalues <- length(fun)
         res <- vector("list", nrvalues)
         for(i in 1:nrvalues) res[[i]] <- E(object = object, fun = fun[[i]], 
-                                           useApply = useApply)
+                                           useApply = useApply, ...)
 
         return(res)
     })