- tab_double (t, 3, heading_rows, 0, std_err, NULL, RC_OTHER);
- tab_double (t, 4, heading_rows, 0, 0.0, NULL, RC_OTHER);
- t_stat = linreg_intercept (c) / std_err;
- tab_double (t, 5, heading_rows, 0, t_stat, NULL, RC_OTHER);
- pval =
- 2 * gsl_cdf_tdist_Q (fabs (t_stat),
- (double) (linreg_n_obs (c) - linreg_n_coeffs (c)));
- tab_double (t, 6, heading_rows, 0, pval, NULL, RC_PVALUE);
-
- for (j = 0; j < linreg_n_coeffs (c); j++)
+
+ if (!cmd->origin)
+ {
+ tab_text (t, 1, this_row, TAB_LEFT | TAT_TITLE, _("(Constant)"));
+ tab_double (t, 2, this_row, 0, linreg_intercept (c), NULL, RC_OTHER);
+ tab_double (t, 3, this_row, 0, std_err, NULL, RC_OTHER);
+ tab_double (t, 4, this_row, 0, 0.0, NULL, RC_OTHER);
+ double t_stat = linreg_intercept (c) / std_err;
+ tab_double (t, 5, this_row, 0, t_stat, NULL, RC_OTHER);
+
+ double pval =
+ 2 * gsl_cdf_tdist_Q (fabs (t_stat),
+ (double) (linreg_n_obs (c) - linreg_n_coeffs (c)));
+ tab_double (t, 6, this_row, 0, pval, NULL, RC_PVALUE);
+ this_row++;
+ }
+
+ for (j = 0; j < linreg_n_coeffs (c); j++, this_row++)