# HG changeset patch
# User jwe
# Date 1073594946 0
# Node ID a2d3862ed07a8cb0642f23b7a65ccfddddd1b6be
# Parent  eaa2caaa35d63caf91fceb82bdfc701cc7589be6
[project @ 2004-01-08 20:49:06 by jwe]

diff -r eaa2caaa35d6 -r a2d3862ed07a scripts/ChangeLog
--- a/scripts/ChangeLog	Wed Jan 07 21:54:56 2004 +0000
+++ b/scripts/ChangeLog	Thu Jan 08 20:49:06 2004 +0000
@@ -1,3 +1,12 @@
+2004-01-08  John W. Eaton  <jwe@bevo.che.wisc.edu>
+
+	* statistics/tests/kolmogorov_smirnov_test_2.m: Fix test for ties.
+
+2004-01-07  John W. Eaton  <jwe@bevo.che.wisc.edu>
+
+	* miscellaneous/path.m: Handle DEFAULT_LOADPATH substitution.
+	Always return substituted version of LOADPATH if nargout != 0.
+
 2003-12-21  Schloegl Alois  <alois.schloegl@tugraz.at>
 
 	* miscellaneous/fullfile.m: If filename is empty, set it to "."
diff -r eaa2caaa35d6 -r a2d3862ed07a scripts/statistics/tests/kolmogorov_smirnov_test_2.m
--- a/scripts/statistics/tests/kolmogorov_smirnov_test_2.m	Wed Jan 07 21:54:56 2004 +0000
+++ b/scripts/statistics/tests/kolmogorov_smirnov_test_2.m	Thu Jan 08 20:49:06 2004 +0000
@@ -73,11 +73,12 @@
   count (find (i <= n_x)) = 1 / n_x;
   count (find (i > n_x)) = - 1 / n_y;
 
-  z = cumsum(count);
-  if ( find(diff(s))) 
+  z = cumsum (count);
+  ds = diff (s);
+  if (any (ds == 0))
     ## There are some ties, so keep only those changes.
     warning ("cannot compute correct p-values with ties")
-    elems = [find(diff(s)); n_x + n_y];
+    elems = [find(ds); n_x+n_y];
     z = z(elems);
   endif