Mercurial > octave-nkf

diff scripts/statistics/base/ranks.m @ 11587:c792872f8942

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
all script files: untabify and strip trailing whitespace
author John W. Eaton <jwe@octave.org>
date Thu, 20 Jan 2011 17:35:29 -0500
parents fd0a3ac60b0e
children d0b799dafede
line wrap: on
line diff
--- a/scripts/statistics/base/ranks.m	Thu Jan 20 17:24:59 2011 -0500
+++ b/scripts/statistics/base/ranks.m	Thu Jan 20 17:35:29 2011 -0500
@@ -77,10 +77,10 @@
       len = diff (find (diff ([Inf; eq_el; -Inf]) != 1)) + 1;
       [eq_el, y] = sort (xi);
       for i = 1 : length(runs)
-        y (xi (runs (i) + [0:(len(i)-1)]) + floor (runs (i) ./ sz(1)) 
+        y (xi (runs (i) + [0:(len(i)-1)]) + floor (runs (i) ./ sz(1))
            * sz(1)) = eq_el(runs(i)) + (len(i) - 1) / 2;
       endfor
-    endif  
+    endif
     if (dim != 1)
       y = permute (y, perm);
     endif