[Distr-commits] r950 - branches/distr-2.6/pkg/distr/src

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

Author: ruckdeschel
Date: 2014-08-10 14:52:51 +0200 (Sun, 10 Aug 2014)
New Revision: 950

Modified:
   branches/distr-2.6/pkg/distr/src/ks.c
Log:
[distr] commented back in the faster right-tail approximation in R-Core C-Code for kolmogoroff distribution

Modified: branches/distr-2.6/pkg/distr/src/ks.c
===================================================================
--- branches/distr-2.6/pkg/distr/src/ks.c	2014-08-10 12:41:00 UTC (rev 949)
+++ branches/distr-2.6/pkg/distr/src/ks.c	2014-08-10 12:52:51 UTC (rev 950)
@@ -142,12 +142,18 @@
    int k, m, i, j, g, eH, eQ;
    double h, s, *H, *Q;
 
+   /* Change of P. Ruckdeschel w.r.t. the included version
+      from R-Core : the faster right-tail approximation
+	  omitted there is re-included 
+   */	  
    /* 
-      The faster right-tail approximation is omitted here.
+      Original comment R-Core:
+	  The faster right-tail approximation is omitted here.
+   */
       s = d*d*n; 
       if(s > 7.24 || (s > 3.76 && n > 99)) 
           return 1-2*exp(-(2.000071+.331/sqrt(n)+1.409/n)*s);
-   */
+   /* end of comment in original R-Core code */
    k = (int) (n * d) + 1;
    m = 2 * k - 1;
    h = k - n * d;