Mercurial > octave-nkf

comparison scripts/statistics/tests/anova.m @ 5317:1c5fe2690d2c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2005-04-28 17:57:29 by jwe]
author jwe
date Thu, 28 Apr 2005 17:57:29 +0000
parents 4c8a2e4e0717
children eabc8e96c006
comparison
equal deleted inserted replaced
5316:aaa6df7aa13a 5317:1c5fe2690d2c
78 group_mean (i) = mean (v); 78 group_mean (i) = mean (v);
79 endfor 79 endfor
80 80
81 endif 81 endif
82 82
83 total_mean = mean (group_mean); 83 total_mean = mean (y);
84 SSB = sum (group_count .* (group_mean - total_mean) .^ 2); 84 SSB = sum (group_count .* (group_mean - total_mean) .^ 2);
85 SST = sumsq (reshape (y, n, 1) - total_mean); 85 SST = sumsq (reshape (y, n, 1) - total_mean);
86 SSW = SST - SSB; 86 SSW = SST - SSB;
87 df_b = k - 1; 87 df_b = k - 1;
88 df_w = n - k; 88 df_w = n - k;