Mercurial > hg > octave-nkf

comparison scripts/statistics/tests/f_test_regression.m @ 4030:22bd65326ec1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2002-08-09 18:58:13 by jwe]
author jwe
date Fri, 09 Aug 2002 19:00:16 +0000
parents 38c61cbf086c
children 4c8a2e4e0717
comparison
equal deleted inserted replaced
4029:2cc57b6169cf 4030:22bd65326ec1
41 if (nargin < 3 || nargin > 4) 41 if (nargin < 3 || nargin > 4)
42 usage ("[pval, f, df_num, df_den] = f_test_regression (y, X, R, r)"); 42 usage ("[pval, f, df_num, df_den] = f_test_regression (y, X, R, r)");
43 endif 43 endif
44 44
45 [T, k] = size (X); 45 [T, k] = size (X);
46 if (! (is_vector (y) && (length (y) == T))) 46 if (! (isvector (y) && (length (y) == T)))
47 error ("f_test_regression: y must be a vector of length rows (X)"); 47 error ("f_test_regression: y must be a vector of length rows (X)");
48 endif 48 endif
49 y = reshape (y, T, 1); 49 y = reshape (y, T, 1);
50 50
51 [q, c_R ] = size (R); 51 [q, c_R ] = size (R);