- double df_corr = 1.0;
- double mse = 0;
-
- int f;
- int r;
- const int heading_columns = 1;
- const int heading_rows = 1;
- struct tab_table *t;
-
- const int nc = 6;
- int nr = heading_rows + 3 + cmd->n_interactions;
- if (cmd->intercept)
- nr += 2;
-
- msg (MW, "GLM is experimental. Do not rely on these results.");
- t = tab_create (nc, nr);
- tab_title (t, _("Tests of Between-Subjects Effects"));
-
- tab_headers (t, heading_columns, 0, heading_rows, 0);
-
- tab_box (t, TAL_2, TAL_2, -1, TAL_1, 0, 0, nc - 1, nr - 1);
-
- tab_hline (t, TAL_2, 0, nc - 1, heading_rows);
- tab_vline (t, TAL_2, heading_columns, 0, nr - 1);
-
- tab_text (t, 0, 0, TAB_CENTER | TAT_TITLE, _("Source"));
-
- /* TRANSLATORS: The parameter is a roman numeral */
- tab_text_format (t, 1, 0, TAB_CENTER | TAT_TITLE,
- _("Type %s Sum of Squares"),
- roman[cmd->ss_type]);
- tab_text (t, 2, 0, TAB_CENTER | TAT_TITLE, _("df"));
- tab_text (t, 3, 0, TAB_CENTER | TAT_TITLE, _("Mean Square"));
- tab_text (t, 4, 0, TAB_CENTER | TAT_TITLE, _("F"));
- tab_text (t, 5, 0, TAB_CENTER | TAT_TITLE, _("Sig."));
-