Mercurial > octave-nkf

diff scripts/statistics/base/cor.m @ 12557:4715ce9f911d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
cor.m: Increase tolerance of %!tests using random data to assure passage.
author Rik <octave@nomad.inbox5.com>
date Thu, 31 Mar 2011 10:09:34 -0700
parents 422a7a7e9b6e
children 6b2f14af2360
line wrap: on
line diff
--- a/scripts/statistics/base/cor.m	Thu Mar 31 09:57:11 2011 -0700
+++ b/scripts/statistics/base/cor.m	Thu Mar 31 10:09:34 2011 -0700
@@ -37,7 +37,7 @@
 
 %!test
 %! x = rand (10, 2);
-%! assert (isequal (cor (x), corrcoef (x)));
+%! assert (cor (x), corrcoef (x), 5*eps);
 %! assert (cor (x(:,1), x(:,2)) == corrcoef (x(:,1), x(:,2)));
 
 %% Test input validation