[Distr-commits] r728 - branches/distr-2.4/www www

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

Author: ruckdeschel
Date: 2011-07-08 15:13:36 +0200 (Fri, 08 Jul 2011)
New Revision: 728

Modified:
   branches/distr-2.4/www/nFoldConvolution.R
   www/nFoldConvolution.R
Log:
tested and applied patch by Philipp Berndt, philipp.berndt at tu-berlin.de,
for www/nFoldConvolution.R


Modified: branches/distr-2.4/www/nFoldConvolution.R
===================================================================
--- branches/distr-2.4/www/nFoldConvolution.R	2011-04-17 00:49:51 UTC (rev 727)
+++ branches/distr-2.4/www/nFoldConvolution.R	2011-07-08 13:13:36 UTC (rev 728)
@@ -39,8 +39,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

Modified: www/nFoldConvolution.R
===================================================================
--- www/nFoldConvolution.R	2011-04-17 00:49:51 UTC (rev 727)
+++ www/nFoldConvolution.R	2011-07-08 13:13:36 UTC (rev 728)
@@ -39,8 +39,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