Mercurial > octave-nkf

comparison scripts/statistics/base/mode.m @ 7197:e1c865f21751

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-11-27 01:38:48 by jwe]
author jwe
date Tue, 27 Nov 2007 01:38:49 +0000
parents a1dbe9d80eee
children a730e47fda4d
comparison
equal deleted inserted replaced
7196:9092375e3936 7197:e1c865f21751
103 %! assert (c, {[1;2;3;4;5];[2];[2;3];[2];[1;2;3;4;5]}); 103 %! assert (c, {[1;2;3;4;5];[2];[2;3];[2];[1;2;3;4;5]});
104 %!test 104 %!test
105 %! a = sprandn (32, 32, 0.05); 105 %! a = sprandn (32, 32, 0.05);
106 %! [m, f, c] = mode (a); 106 %! [m, f, c] = mode (a);
107 %! [m2, f2, c2] = mode (full (a)); 107 %! [m2, f2, c2] = mode (full (a));
108 %! assert (m, m2); 108 %! assert (m, sparse (m2, 1));
109 %! assert (f, f2); 109 %! assert (f, sparse (f2, 1));
110 %! assert (c, c2); 110 %! assert (c, cellfun (@(x) sparse (1, 1), c2, 'UniformOutput', false));