Mercurial > hg > octave-nkf

changeset 10231:f63ee6a20f57

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Replace removed functions in tests
author Thorsten Meyer <thorsten.meyier@gmx.de>
date Sat, 30 Jan 2010 21:51:59 +0100
parents 0a5a769b8fc0
children 0efd486813fe
files scripts/ChangeLog scripts/statistics/tests/kruskal_wallis_test.m src/ChangeLog src/DLD-FUNCTIONS/time.cc
diffstat 4 files changed, 30 insertions(+), 21 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/ChangeLog
+++ b/scripts/ChangeLog
@@ -1,3 +1,8 @@
+2010-01-30  Thorsten Meyer  <thorsten.meyier@gmx.de>
+
+	* statistics/tests/kruskal_wallis_test.m: Replace chisquare_cdf
+	by chi2cdf.
+
 2010-01-29  Ben Abbott  <bpabbott@mac.com>
 
 	* plot/axis.m, plot/__go_draw_axes__.m, plot/colorbar.m,
--- a/scripts/statistics/tests/kruskal_wallis_test.m
+++ b/scripts/statistics/tests/kruskal_wallis_test.m
@@ -87,7 +87,7 @@
   k = k / (1 - sum_ties / (n^3 - n));
 
   df = m - 1;
-  pval = 1 - chisquare_cdf (k, df);
+  pval = 1 - chi2cdf (k, df);
 
   if (nargout == 0)
     printf ("pval: %g\n", pval);
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2010-01-30  Thorsten Meyer  <thorsten.meyier@gmx.de>
+
+	* DLD-FUNCTIONS/time.cc: Replace struct_contains by isfield.
+
 2010-01-30  Jaroslav Hajek  <highegg@gmail.com>
 
 	* pt-assign.h (tree_multi_assignment::etype): Remove.
--- a/src/DLD-FUNCTIONS/time.cc
+++ b/src/DLD-FUNCTIONS/time.cc
@@ -149,16 +149,16 @@
 %!test
 %! ts = gmtime (time ());
 %! assert((isstruct (ts)
-%! && struct_contains (ts, "usec")
-%! && struct_contains (ts, "year")
-%! && struct_contains (ts, "mon")
-%! && struct_contains (ts, "mday")
-%! && struct_contains (ts, "sec")
-%! && struct_contains (ts, "min")
-%! && struct_contains (ts, "wday")
-%! && struct_contains (ts, "hour")
-%! && struct_contains (ts, "isdst")
-%! && struct_contains (ts, "yday")));
+%! && isfield (ts, "usec")
+%! && isfield (ts, "year")
+%! && isfield (ts, "mon")
+%! && isfield (ts, "mday")
+%! && isfield (ts, "sec")
+%! && isfield (ts, "min")
+%! && isfield (ts, "wday")
+%! && isfield (ts, "hour")
+%! && isfield (ts, "isdst")
+%! && isfield (ts, "yday")));
 
 %!error <Invalid call to gmtime.*> gmtime ();
 
@@ -213,16 +213,16 @@
 %!test
 %! ts = localtime (time ());
 %! assert((isstruct (ts)
-%! && struct_contains (ts, "usec")
-%! && struct_contains (ts, "year")
-%! && struct_contains (ts, "mon")
-%! && struct_contains (ts, "mday")
-%! && struct_contains (ts, "sec")
-%! && struct_contains (ts, "min")
-%! && struct_contains (ts, "wday")
-%! && struct_contains (ts, "hour")
-%! && struct_contains (ts, "isdst")
-%! && struct_contains (ts, "yday")));
+%! && isfield (ts, "usec")
+%! && isfield (ts, "year")
+%! && isfield (ts, "mon")
+%! && isfield (ts, "mday")
+%! && isfield (ts, "sec")
+%! && isfield (ts, "min")
+%! && isfield (ts, "wday")
+%! && isfield (ts, "hour")
+%! && isfield (ts, "isdst")
+%! && isfield (ts, "yday")));
 
 %!error <Invalid call to localtime.*> localtime ();