Mercurial > octave-nkf

diff scripts/statistics/base/skewness.m @ 13279:984359717d71

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use common code idiom for checking whether a double value is an integer. * num2str.m, rotdim.m, get_first_help_sentence.m, ind2rgb.m, commutation_matrix.m, figure.m, legend.m, polyfit.m, bartlett.m, blackman.m, detrend.m, hamming.m, hanning.m, factorial.m, mode.m, skewness.m, statistics.m, mcnemar_test.m: Use idiom 'x == fix (x)' to test for integerness.
author Rik <octave@nomad.inbox5.com>
date Wed, 05 Oct 2011 13:10:10 -0700
parents 6b2f14af2360
children 72c96de7a403
line wrap: on
line diff
--- a/scripts/statistics/base/skewness.m	Wed Oct 05 12:00:31 2011 -0700
+++ b/scripts/statistics/base/skewness.m	Wed Oct 05 13:10:10 2011 -0700
@@ -61,7 +61,7 @@
     ## Find the first non-singleton dimension.
     (dim = find (sz > 1, 1)) || (dim = 1);
   else
-    if (!(isscalar (dim) && dim == round (dim))
+    if (!(isscalar (dim) && dim == fix (dim))
         || !(1 <= dim && dim <= nd))
       error ("skewness: DIM must be an integer and a valid dimension");
     endif