Mercurial > octave

comparison scripts/statistics/base/mode.m @ 11191:01ddaedd6ad5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Reverse changeset b1f4bdc276b6. Use all lower case for "uniformoutput" option.
author Rik <octave@nomad.inbox5.com>
date Thu, 04 Nov 2010 12:18:08 -0700
parents fe3c3dfc07eb
children e151e23f73bc
comparison
equal deleted inserted replaced
11190:b1f4bdc276b6 11191:01ddaedd6ad5
113 %! a = sprandn (32, 32, 0.05); 113 %! a = sprandn (32, 32, 0.05);
114 %! [m, f, c] = mode (a); 114 %! [m, f, c] = mode (a);
115 %! [m2, f2, c2] = mode (full (a)); 115 %! [m2, f2, c2] = mode (full (a));
116 %! assert (m, sparse (m2)); 116 %! assert (m, sparse (m2));
117 %! assert (f, sparse (f2)); 117 %! assert (f, sparse (f2));
118 %! assert (c, cellfun (@(x) sparse (0), c2, 'UniformOutput', false)); 118 %! assert (c, cellfun (@(x) sparse (0), c2, 'uniformoutput', false));
119 119
120 %!assert(mode([2,3,1,2,3,4],1),[2,3,1,2,3,4]) 120 %!assert(mode([2,3,1,2,3,4],1),[2,3,1,2,3,4])
121 %!assert(mode([2,3,1,2,3,4],2),2) 121 %!assert(mode([2,3,1,2,3,4],2),2)
122 %!assert(mode([2,3,1,2,3,4]),2) 122 %!assert(mode([2,3,1,2,3,4]),2)
123 123