[Distr-commits] r1114 - branches/distr-2.7/pkg/distr/R

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

Author: ruckdeschel
Date: 2016-08-04 15:24:00 +0200 (Thu, 04 Aug 2016)
New Revision: 1114

Modified:
   branches/distr-2.7/pkg/distr/R/CompoundDistribution.R
Log:
distr 2.7  ##  bugfix :: bug detected by Wolfgang Kreitmeier <wkreitmeier at gmx.de> 29.07.2016


Modified: branches/distr-2.7/pkg/distr/R/CompoundDistribution.R
===================================================================
--- branches/distr-2.7/pkg/distr/R/CompoundDistribution.R	2016-06-14 20:52:31 UTC (rev 1113)
+++ branches/distr-2.7/pkg/distr/R/CompoundDistribution.R	2016-08-04 13:24:00 UTC (rev 1114)
@@ -23,16 +23,18 @@
   is0 <- 0 %in% supp
   lI <- vector("list", length(supp))
   if(is0) lI[[1]] <- Dirac(0)
+  ##  bugfix :: bug detected by Wolfgang Kreitmeier <wkreitmeier at gmx.de> 29.07.2016
   if(length(suppNot0)){
      if(is(SummandsDistr,"UnivariateDistribution")){
-        dsuppNot0 <- c(suppNot0,diff(suppNot0))
-        S <- 0
+#        dsuppNot0 <- c(suppNot0,diff(suppNot0))
+#        S <- 0
         for (i in 1:length(suppNot0)){
-             x0 <- convpow(SummandsDistr,dsuppNot0[i])
-             S <- S + x0
+#             x0 <- convpow(SummandsDistr,suppNot0[i])
+             S <- convpow(SummandsDistr,suppNot0[i])
+#             S <- S + x0
              lI[[i+is0]] <- S
-        Symmetry <- Symmetry(SummandsDistr)
-        }
+        }     
+      Symmetry <- Symmetry(SummandsDistr)
      }else{
        supp <- min(supp):max(supp)
        if( (length(supp)!=length(SummandsDistr)) &&