Mercurial > hg > octave-lyh

diff scripts/statistics/base/cut.m @ 4030:22bd65326ec1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2002-08-09 18:58:13 by jwe]
author jwe
date Fri, 09 Aug 2002 19:00:16 +0000
parents 38c61cbf086c
children 4c8a2e4e0717
line wrap: on
line diff
--- a/scripts/statistics/base/cut.m
+++ b/scripts/statistics/base/cut.m
@@ -41,13 +41,13 @@
     usage ("cut (X, BREAKS)");
   endif
 
-  if (! is_vector (X))
+  if (! isvector (X))
     error ("cut: X must be a vector");
   endif
-  if is_scalar (BREAKS)
+  if isscalar (BREAKS)
     BREAKS = linspace (min (X), max (X), BREAKS + 1);
     BREAKS(1) = BREAKS(1) - 1;
-  elseif is_vector (BREAKS)
+  elseif isvector (BREAKS)
     BREAKS = sort (BREAKS);
   else
     error ("cut: BREAKS must be a scalar or vector");