- int n_cols = 7;
- int n_rows = 4;
- const double msm = linreg_ssreg (c) / linreg_dfmodel (c);
- const double mse = linreg_mse (c);
- const double F = msm / mse;
- const double pval = gsl_cdf_fdist_Q (F, linreg_dfmodel (c),
- linreg_dferror (c));
-
- struct tab_table *t;
-
- assert (c != NULL);
- t = tab_create (n_cols, n_rows);
- tab_headers (t, 2, 0, 1, 0);
-
- tab_box (t, TAL_2, TAL_2, -1, TAL_1, 0, 0, n_cols - 1, n_rows - 1);
-
- tab_hline (t, TAL_2, 0, n_cols - 1, 1);
- tab_vline (t, TAL_2, 2, 0, n_rows - 1);
- tab_vline (t, TAL_0, 1, 0, 0);
-
- tab_text (t, 2, 0, TAB_CENTER | TAT_TITLE, _("Sum of Squares"));
- tab_text (t, 3, 0, TAB_CENTER | TAT_TITLE, _("df"));
- tab_text (t, 4, 0, TAB_CENTER | TAT_TITLE, _("Mean Square"));
- tab_text (t, 5, 0, TAB_CENTER | TAT_TITLE, _("F"));
- tab_text (t, 6, 0, TAB_CENTER | TAT_TITLE, _("Sig."));
-
- tab_text (t, 1, 1, TAB_LEFT | TAT_TITLE, _("Regression"));
- tab_text (t, 1, 2, TAB_LEFT | TAT_TITLE, _("Residual"));
- tab_text (t, 1, 3, TAB_LEFT | TAT_TITLE, _("Total"));
-
- /* Sums of Squares */
- tab_double (t, 2, 1, 0, linreg_ssreg (c), NULL, RC_OTHER);
- tab_double (t, 2, 3, 0, linreg_sst (c), NULL, RC_OTHER);
- tab_double (t, 2, 2, 0, linreg_sse (c), NULL, RC_OTHER);