[Distr-commits] r630 - branches/distr-2.3/pkg/distr/man pkg/distr/R pkg/distr/man

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

Author: ruckdeschel
Date: 2009-11-03 14:17:26 +0100 (Tue, 03 Nov 2009)
New Revision: 630

Modified:
   branches/distr-2.3/pkg/distr/man/simplifyD-methods.Rd
   pkg/distr/R/internalUtils.R
   pkg/distr/man/simplifyD-methods.Rd
Log:
got strange unreproducible error reports in the example to simplifyD; set seed now to avoid this.

Modified: branches/distr-2.3/pkg/distr/man/simplifyD-methods.Rd
===================================================================
--- branches/distr-2.3/pkg/distr/man/simplifyD-methods.Rd	2009-11-03 12:38:39 UTC (rev 629)
+++ branches/distr-2.3/pkg/distr/man/simplifyD-methods.Rd	2009-11-03 13:17:26 UTC (rev 630)
@@ -48,6 +48,7 @@
 
 \seealso{\code{\link{Huberize}}, \code{\link{Minimum}}}
 \examples{
+set.seed(123)
 Mix1 <- UnivarMixingDistribution(Norm(),Binom(2,.3),
   UnivarLebDecDistribution(acPart = Chisq(df = 2), discretePart = Nbinom(3,.09),
                            acWeight = 0.3),

Modified: pkg/distr/R/internalUtils.R
===================================================================
--- pkg/distr/R/internalUtils.R	2009-11-03 12:38:39 UTC (rev 629)
+++ pkg/distr/R/internalUtils.R	2009-11-03 13:17:26 UTC (rev 630)
@@ -618,8 +618,8 @@
 
 l0 <- length(unique(x[!.isEqual01(x)]))
 if(l0 > 1){
-   yl <- if(is.finite(yleft)) yleft  else y[1]
-   yr <- if(is.finite(yright)) yright else y[length(y)]
+   yl <- if(!is.na(yleft) && is.finite(yleft))  yleft  else y[1]
+   yr <- if(!is.na(yright)&& is.finite(yright)) yright else y[length(y)]
 
    f1 <- approxfun(x = x, y = y, yleft = yl, yright = yr)
 }else{ 

Modified: pkg/distr/man/simplifyD-methods.Rd
===================================================================
--- pkg/distr/man/simplifyD-methods.Rd	2009-11-03 12:38:39 UTC (rev 629)
+++ pkg/distr/man/simplifyD-methods.Rd	2009-11-03 13:17:26 UTC (rev 630)
@@ -48,6 +48,7 @@
 
 \seealso{\code{\link{Huberize}}, \code{\link{Minimum}}}
 \examples{
+set.seed(123)
 Mix1 <- UnivarMixingDistribution(Norm(),Binom(2,.3),
   UnivarLebDecDistribution(acPart = Chisq(df = 2), discretePart = Nbinom(3,.09),
                            acWeight = 0.3),