Mercurial > hg > octave-nkf

comparison scripts/statistics/base/values.m @ 3457:e031284eea27

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2000-01-19 08:49:56 by jwe]
author jwe
date Wed, 19 Jan 2000 08:50:14 +0000
parents 434790acb067
children 38c61cbf086c
comparison
equal deleted inserted replaced
3456:434790acb067 3457:e031284eea27
27 27
28 if (nargin != 1) 28 if (nargin != 1)
29 usage ("values (x)"); 29 usage ("values (x)");
30 endif 30 endif
31 31
32 if !(is_vector (x)) 32 if (! (is_vector (x)))
33 error ("values: x must be a vector"); 33 error ("values: x must be a vector");
34 endif 34 endif
35 35
36 i = any (isnan (x)); 36 i = any (isnan (x));
37 x = x(find(!isnan (x))); # HACK! 37 x = x(find(!isnan (x))); # HACK!