Mercurial > octave-nkf

comparison scripts/statistics/tests/kruskal_wallis_test.m @ 3273:eb27ea9b7ff8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1999-10-12 02:22:25 by jwe]
author jwe
date Tue, 12 Oct 1999 02:27:27 +0000
parents 781c930425fd
children f8dde1807dee
comparison
equal deleted inserted replaced
3272:9e0c8e289555 3273:eb27ea9b7ff8
46 if (! is_vector (x)) 46 if (! is_vector (x))
47 error ("kruskal_wallis_test: all arguments must be vectors"); 47 error ("kruskal_wallis_test: all arguments must be vectors");
48 endif 48 endif
49 l = length (x); 49 l = length (x);
50 n = [n, l]; 50 n = [n, l];
51 p = [p, reshape (x, 1, l)]; 51 p = [p, (reshape (x, 1, l))];
52 endfor 52 endfor
53 53
54 r = ranks (p); 54 r = ranks (p);
55 55
56 k = 0; 56 k = 0;