Mercurial > octave-nkf
diff scripts/statistics/base/mode.m @ 7197:e1c865f21751
[project @ 2007-11-27 01:38:48 by jwe]
author | jwe |
---|---|
date | Tue, 27 Nov 2007 01:38:49 +0000 |
parents | a1dbe9d80eee |
children | a730e47fda4d |
line wrap: on
line diff
--- a/scripts/statistics/base/mode.m Mon Nov 26 23:39:26 2007 +0000 +++ b/scripts/statistics/base/mode.m Tue Nov 27 01:38:49 2007 +0000 @@ -105,6 +105,6 @@ %! a = sprandn (32, 32, 0.05); %! [m, f, c] = mode (a); %! [m2, f2, c2] = mode (full (a)); -%! assert (m, m2); -%! assert (f, f2); -%! assert (c, c2); +%! assert (m, sparse (m2, 1)); +%! assert (f, sparse (f2, 1)); +%! assert (c, cellfun (@(x) sparse (1, 1), c2, 'UniformOutput', false));