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

noreply at r-forge.r-project.org noreply at r-forge.r-project.org
Wed Feb 22 21:49:35 CET 2012


Author: ruckdeschel
Date: 2012-02-22 21:49:35 +0100 (Wed, 22 Feb 2012)
New Revision: 798

Modified:
   pkg/distr/R/internalUtils.R
Log:
[distr] 2.4 trunc: fixed gaps issue with .multm ---caught with try catch

Modified: pkg/distr/R/internalUtils.R
===================================================================
--- pkg/distr/R/internalUtils.R	2012-02-22 20:48:09 UTC (rev 797)
+++ pkg/distr/R/internalUtils.R	2012-02-22 20:49:35 UTC (rev 798)
@@ -627,12 +627,14 @@
                  rm(supportnew)
 
             }else if (Dclass == "AffLinAbscontDistribution"){
-                 if(is.null(e1 at gaps)) 
+                 trY <- try(
+                 if(is.null(e1 at gaps))
                     gapsnew <- NULL
                  else {gapsnew <- e1 at gaps * e2
                        if (e2 < 0) gapsnew <- 
                              gapsnew[rev(seq(nrow(gapsnew))),c(2,1),drop = FALSE] }
-                 
+                 , silent=TRUE)
+
                  dnew <- .makeD(substitute(e1, list(e1 = e1)),
                                 substitute(alist(x = x / e2), list(e2 = e2)),
                                 stand = abs(e2))
@@ -648,11 +650,13 @@
                     .logExact = .logExact(e1), .lowerExact = .lowerExact(e1))
  
             }else if (Dclass == "AbscontDistribution"){
-                 if(is.null(e1 at gaps)) 
+                 trY <- try(
+                 if(is.null(e1 at gaps))
                     gapsnew <- NULL
                  else {gapsnew <- e1 at gaps * e2
                        if (e2 < 0) gapsnew <- 
                             gapsnew[rev(seq(nrow(gapsnew))),c(2,1), drop = FALSE] }
+                 , silent=TRUE)
 
                  dnew <- .makeD(substitute(e1, list(e1 = e1)),
                                 substitute(alist(x = x / e2), list(e2 = e2)),



More information about the Distr-commits mailing list