[Robast-commits] r574 - branches/robast-0.9/pkg/RandVar/R

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

Author: ruckdeschel
Date: 2013-01-28 03:34:18 +0100 (Mon, 28 Jan 2013)
New Revision: 574

Modified:
   branches/robast-0.9/pkg/RandVar/R/util.R
Log:
RandVar: suppressed gaps handling and warnings from .makeDNew (annoying with GEVD) in .getImageDistr

Modified: branches/robast-0.9/pkg/RandVar/R/util.R
===================================================================
--- branches/robast-0.9/pkg/RandVar/R/util.R	2013-01-27 23:58:54 UTC (rev 573)
+++ branches/robast-0.9/pkg/RandVar/R/util.R	2013-01-28 02:34:18 UTC (rev 574)
@@ -12,11 +12,15 @@
         qd <- q(distr)
         y <- f(qd(u))
     
+        wmdn <- getdistrOption("warn.makeDNew")
+        on.exit(distroptions(warn.makeDNew=wmdn))
+        distroptions(warn.makeDNew=FALSE)
+        
         if(length(unique(c(rl(10000),y)))==10000+length(y)){
            DPQnew <- RtoDPQ(r=rl, y=y)
            return(AbscontDistribution(r = rl, d = DPQnew$d, p = DPQnew$p, 
                                       q = DPQnew$q, .withArith = TRUE, 
-                                      .withSim = TRUE))
+                                      .withSim = TRUE, withgaps = FALSE))
         
         }else
            return(UnivarLebDecDistribution(r = rl, y = y))