[Distr-commits] r824 - branches/distr-2.4/pkg/distr/demo

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

Author: ruckdeschel
Date: 2012-06-18 10:22:44 +0200 (Mon, 18 Jun 2012)
New Revision: 824

Modified:
   branches/distr-2.4/pkg/distr/demo/nFoldConvolution.R
Log:
[distr] corrected a bug noticed by frank1828 at gmail.com

Modified: branches/distr-2.4/pkg/distr/demo/nFoldConvolution.R
===================================================================
--- branches/distr-2.4/pkg/distr/demo/nFoldConvolution.R	2012-06-11 22:07:23 UTC (rev 823)
+++ branches/distr-2.4/pkg/distr/demo/nFoldConvolution.R	2012-06-18 08:22:44 UTC (rev 824)
@@ -40,8 +40,8 @@
                              q(D1)(getdistrOption("TruncQuantile"))
                            ) 
             upper <- ifelse((q(D1)(1) < Inf), q(D1)(1), 
-                             q(D1)(getdistrOption("TruncQuantile", 
-                                   lower.tail = FALSE))
+                             q(D1)(getdistrOption("TruncQuantile"),
+                                   lower.tail = FALSE)
                            )
 
     ##STEP 2