[Distr-commits] r1118 - pkg/distrEx/R

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

Author: ruckdeschel
Date: 2016-09-04 13:08:59 +0200 (Sun, 04 Sep 2016)
New Revision: 1118

Modified:
   pkg/distrEx/R/CvMDist.R
Log:
distrEx: fixed a bug in CvMDist

Modified: pkg/distrEx/R/CvMDist.R
===================================================================
--- pkg/distrEx/R/CvMDist.R	2016-09-04 08:38:02 UTC (rev 1117)
+++ pkg/distrEx/R/CvMDist.R	2016-09-04 11:08:59 UTC (rev 1118)
@@ -28,8 +28,9 @@
     function(e1, e2, mu = e1, ...)
         { o.warn <- getOption("warn"); options(warn = -1)
           on.exit(options(warn=o.warn))
-          if(identical(mu,e2))
-             return(.newCvMDist(e1,e2))
+          if(identical(mu,e2)){
+             if(is(e2, "AbscontDistribution"))
+             return(.newCvMDist(e1,e2)) }   
           e10 <- DiscreteDistribution(e1)       
           if(identical(mu,e1)) mu <- e10
           CvMDist(e1 = e10, e2 = e2, mu = mu, ...)