- {
- double T;
- double n, mean, variance;
- double std_dev;
- double std_error;
-
- moments1_calculate (ws->dd_total[v]->mom, &n, &mean, &variance, NULL, NULL);
-
- std_dev = sqrt (variance);
- std_error = std_dev / sqrt (n) ;
-
- tab_text (t, 1, row + count,
- TAB_LEFT | TAT_TITLE, _("Total"));
-
- tab_double (t, 2, row + count, 0, n, NULL, RC_WEIGHT);
-
- tab_double (t, 3, row + count, 0, mean, NULL, RC_OTHER);
-
- tab_double (t, 4, row + count, 0, std_dev, NULL, RC_OTHER);
-
- tab_double (t, 5, row + count, 0, std_error, NULL, RC_OTHER);
-
- /* Now the confidence interval */
- T = gsl_cdf_tdist_Qinv (q, n - 1);
-
- tab_double (t, 6, row + count, 0,
- mean - T * std_error, NULL, RC_OTHER);
-
- tab_double (t, 7, row + count, 0,
- mean + T * std_error, NULL, RC_OTHER);
-
-
- /* Min and Max */
- tab_double (t, 8, row + count, 0, ws->dd_total[v]->minimum, fmt, RC_OTHER);
- tab_double (t, 9, row + count, 0, ws->dd_total[v]->maximum, fmt, RC_OTHER);
- }
-
- row += categoricals_n_total (cats) + 1;
+ {
+ double n, mean, variance;
+ moments1_calculate (ws->dd_total[v]->mom, &n, &mean, &variance,
+ NULL, NULL);
+
+ double std_dev = sqrt (variance);
+ double std_error = std_dev / sqrt (n) ;
+ double T = gsl_cdf_tdist_Qinv (q, n - 1);
+
+ double entries[] = {
+ n,
+ mean,
+ std_dev,
+ std_error,
+ mean - T * std_error,
+ mean + T * std_error,
+ ws->dd_total[v]->minimum,
+ ws->dd_total[v]->maximum,
+ };
+ for (size_t i = 0; i < sizeof entries / sizeof *entries; i++)
+ pivot_table_put3 (table, i, count, dep_var_idx,
+ pivot_value_new_number (entries[i]));
+ }