[Distr-commits] r399 - in branches/distr-2.1/pkg/distr: R chm

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

Author: ruckdeschel
Date: 2009-02-16 18:39:13 +0100 (Mon, 16 Feb 2009)
New Revision: 399

Modified:
   branches/distr-2.1/pkg/distr/R/internalUtils.R
   branches/distr-2.1/pkg/distr/chm/Distr.chm
Log:
We are a bit more careful about hitting support points
in .multm for DiscreteDistribution (i.e., for D * e2,
e2 numeric, D DiscreteDistribution). 

Modified: branches/distr-2.1/pkg/distr/R/internalUtils.R
===================================================================
--- branches/distr-2.1/pkg/distr/R/internalUtils.R	2009-02-16 11:43:25 UTC (rev 398)
+++ branches/distr-2.1/pkg/distr/R/internalUtils.R	2009-02-16 17:39:13 UTC (rev 399)
@@ -458,7 +458,10 @@
                  coR <- substitute({
                              o.warn <- getOption("warn"); options(warn = -1)
                              on.exit(options(warn=o.warn))
-                             d0 <- object at d(x = q / e2C)
+                             #
+                             x0 <- .setEqual(q / e2C, support(object))
+                             d0 <- object at d(x = x0)
+                             #
                              options(warn = o.warn)
                              if (!lower.tail) d0 <- -d0
                              p0 <- p0 + d0},

Modified: branches/distr-2.1/pkg/distr/chm/Distr.chm
===================================================================
(Binary files differ)