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

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

Author: ruckdeschel
Date: 2013-02-17 01:12:50 +0100 (Sun, 17 Feb 2013)
New Revision: 888

Modified:
   branches/distr-2.5/pkg/distrMod/R/modifyModel.R
Log:
distrMod: small change to avoid frequent calls to getImageDistr

Modified: branches/distr-2.5/pkg/distrMod/R/modifyModel.R
===================================================================
--- branches/distr-2.5/pkg/distrMod/R/modifyModel.R	2013-02-16 14:21:05 UTC (rev 887)
+++ branches/distr-2.5/pkg/distrMod/R/modifyModel.R	2013-02-17 00:12:50 UTC (rev 888)
@@ -71,6 +71,7 @@
           callIm <- substitute(imageDistr(RandVar = M1l, distr = M2l),
                                           list(M1l=M at L2deriv, M2l=M at distribution)
                                        )
+          if(missing(.withL2derivDistr)) .withL2derivDistr <- M at .withMDE
           M at L2derivDistr <- if(.withL2derivDistr) eval(callIm) else callIm
 
           M1 <- existsPIC(M)