[Distr-commits] r794 - pkg/distr/R

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

Author: ruckdeschel
Date: 2012-02-22 15:49:28 +0100 (Wed, 22 Feb 2012)
New Revision: 794

Modified:
   pkg/distr/R/internalUtils.R
Log:
[distr], 2.4-branch: fixed gaps issue with .multm

Modified: pkg/distr/R/internalUtils.R
===================================================================
--- pkg/distr/R/internalUtils.R	2012-02-20 23:58:12 UTC (rev 793)
+++ pkg/distr/R/internalUtils.R	2012-02-22 14:49:28 UTC (rev 794)
@@ -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)