[Distr-commits] r795 - branches/distr-2.4/pkg/distr/R

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

Author: ruckdeschel
Date: 2012-02-22 15:51:23 +0100 (Wed, 22 Feb 2012)
New Revision: 795

Modified:
   branches/distr-2.4/pkg/distr/R/internalUtils.R
Log:
[distr] 2.4 branch: fixed gaps issue with .multm (last commit was trunc!)

Modified: branches/distr-2.4/pkg/distr/R/internalUtils.R
===================================================================
--- branches/distr-2.4/pkg/distr/R/internalUtils.R	2012-02-22 14:49:28 UTC (rev 794)
+++ branches/distr-2.4/pkg/distr/R/internalUtils.R	2012-02-22 14:51:23 UTC (rev 795)
@@ -547,6 +547,11 @@
           }
 
 .multm <- function(e1, e2, Dclass = "DiscreteDistribution"){
+
+            withg <- getdistrOption("withgaps")
+            on.exit(distroptions(withgaps=withg))
+            distoptions(withgaps=FALSE)
+
             if (length(e2)>1) stop("length of operator must be 1")
 
             if (.isEqual(e2, 1)) return(e1)