[Robast-commits] r171 - branches/robast-0.6/pkg/RandVar/R

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

Author: stamats
Date: 2008-09-01 15:05:15 +0200 (Mon, 01 Sep 2008)
New Revision: 171

Modified:
   branches/robast-0.6/pkg/RandVar/R/util.R
Log:
corrected minor bug

Modified: branches/robast-0.6/pkg/RandVar/R/util.R
===================================================================
--- branches/robast-0.6/pkg/RandVar/R/util.R	2008-08-28 12:46:23 UTC (rev 170)
+++ branches/robast-0.6/pkg/RandVar/R/util.R	2008-09-01 13:05:15 UTC (rev 171)
@@ -1,7 +1,8 @@
 ## small util if imageDistr fails
-.getImageDistr <- function(f, distr)
-{ if (is(try(return(f(distr)), silent = TRUE),
-         "try-error")){
-  rl <- function(n) { xr <- r(distr)(n); f(xr) }
-  return(AbscontDistribution( r = rl, .withArith = TRUE, .withSim = TRUE)))}
-}         
\ No newline at end of file
+.getImageDistr <- function(f, distr){ 
+    if(is(try(return(f(distr)), silent = TRUE), "try-error")){
+        rl <- function(n) { xr <- r(distr)(n); f(xr) 
+    }
+
+    return(AbscontDistribution(r = rl, .withArith = TRUE, .withSim = TRUE))}
+}