Mercurial > hg > octave-nkf

diff scripts/statistics/base/cov.m @ 7939:18d7171759ff

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[mq]: covtest
author Jaroslav Hajek <highegg@gmail.com>
date Thu, 17 Jul 2008 11:57:56 +0200
parents 83a8781b529d
children eb63fbe60fab
line wrap: on
line diff
--- a/scripts/statistics/base/cov.m
+++ b/scripts/statistics/base/cov.m
@@ -71,7 +71,7 @@
 %! x = rand (10);
 %! cx1 = cov (x);
 %! cx2 = cov (x, x);
-%! assert(size (cx1) == [10, 10] && size (cx2) == [10, 10] && cx1 == cx2);
+%! assert(size (cx1) == [10, 10] && size (cx2) == [10, 10] && norm(cx1-cx2) < 1e1*eps);
 
 %!error cov ();