Mercurial > hg > octave-lyh
diff scripts/statistics/base/ranks.m @ 10549:95c3e38098bf
Untabify .m scripts
author | Rik <code@nomad.inbox5.com> |
---|---|
date | Fri, 23 Apr 2010 11:28:50 -0700 |
parents | 952d4df5b686 |
children | f0dc41c824ce |
line wrap: on
line diff
--- a/scripts/statistics/base/ranks.m +++ b/scripts/statistics/base/ranks.m @@ -50,8 +50,8 @@ endif else if (! (isscalar (dim) && dim == round (dim)) - && dim > 0 - && dim < (nd + 1)) + && dim > 0 + && dim < (nd + 1)) error ("ranks: dim must be an integer and valid dimension"); endif endif @@ -77,8 +77,8 @@ 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)) - * sz(1)) = eq_el(runs(i)) + (len(i) - 1) / 2; + 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 if (dim != 1)