Mercurial > octave-nkf

diff scripts/statistics/tests/manova.m @ 7795:df9519e9990c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Handle single precision eps values
author David Bateman <dbateman@free.fr>
date Mon, 12 May 2008 22:57:11 +0200
parents a1dbe9d80eee
children eb63fbe60fab
line wrap: on
line diff
--- a/scripts/statistics/tests/manova.m	Mon May 12 01:35:30 2008 +0200
+++ b/scripts/statistics/tests/manova.m	Mon May 12 22:57:11 2008 +0200
@@ -83,7 +83,12 @@
   n_w = n - k;
 
   l = real (eig (SSB / SSW));
-  l (l < eps) = 0;
+
+  if (isa (l, "single"))
+    l (l < eps ("single")) = 0;
+  else
+    l (l < eps) = 0;
+  endif
 
   ## Wilks' Lambda
   ## =============