[Robast-commits] r76 - pkg/RandVar/R

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

Author: ruckdeschel
Date: 2008-02-26 23:56:45 +0100 (Tue, 26 Feb 2008)
New Revision: 76

Modified:
   pkg/RandVar/R/util.R
Log:
small change for consistency with method "Math" for ContinuousDistribution.R from package distr

Modified: pkg/RandVar/R/util.R
===================================================================
--- pkg/RandVar/R/util.R	2008-02-26 19:26:57 UTC (rev 75)
+++ pkg/RandVar/R/util.R	2008-02-26 22:56:45 UTC (rev 76)
@@ -3,7 +3,5 @@
 { if (is(try(return(f(distr)), silent = TRUE),
          "try-error")){
   rl <- function(n) { xr <- r(distr)(n); f(xr) }
-  dr <- RtoDPQ(r = rl)
-  return(new("AbscontDistribution", d = dr$dfun, 
-       r = rl, p = dr$pfun, q = dr$qfun, .withSim = TRUE))}
-}       
\ No newline at end of file
+  return(new("AbscontDistribution", r = rl, .withArith = TRUE, .withSim = TRUE))}
+}         
\ No newline at end of file