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

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

Author: stamats
Date: 2008-10-30 11:52:26 +0100 (Thu, 30 Oct 2008)
New Revision: 323

Modified:
   pkg/distr/R/DiscreteDistribution.R
Log:
forgot to remove coercing ...

Modified: pkg/distr/R/DiscreteDistribution.R
===================================================================
--- pkg/distr/R/DiscreteDistribution.R	2008-10-30 10:51:15 UTC (rev 322)
+++ pkg/distr/R/DiscreteDistribution.R	2008-10-30 10:52:26 UTC (rev 323)
@@ -197,7 +197,7 @@
             e1 <- as(e1, "LatticeDistribution")
             e2 <- as(e2, "LatticeDistribution")
             if(is(e1, "LatticeDistribution") & is(e2, "LatticeDistribution"))
-                return(as(e1 + e2, "DiscreteDistribution"))
+                return(e1 + e2)
             convolutedsupport <- rep(support(e1), each = length(support(e2))) +
                                  support(e2)