- for (r = 0 ; r < corr->n_vars1 ; ++r)
- {
- tab_text (t, 0, 1 + r * rows_per_variable, TAB_LEFT | TAT_TITLE,
- var_to_string (corr->vars[r]));
-
- tab_text (t, 1, 1 + r * rows_per_variable, TAB_LEFT | TAT_TITLE, _("Pearson Correlation"));
- tab_text (t, 1, 2 + r * rows_per_variable, TAB_LEFT | TAT_TITLE,
- (opts->tails == 2) ? _("Sig. (2-tailed)") : _("Sig. (1-tailed)"));
-
- if (opts->statistics & STATS_XPROD)
- {
- tab_text (t, 1, 3 + r * rows_per_variable, TAB_LEFT | TAT_TITLE, _("Cross-products"));
- tab_text (t, 1, 4 + r * rows_per_variable, TAB_LEFT | TAT_TITLE, _("Covariance"));
- }
-
- if ( opts->missing_type != CORR_LISTWISE )
- tab_text (t, 1, rows_per_variable + r * rows_per_variable, TAB_LEFT | TAT_TITLE, _("N"));
-
- tab_hline (t, TAL_1, 0, nc - 1, r * rows_per_variable + 1);
- }
+ /* Column variable dimension. */
+ struct pivot_dimension *columns = pivot_dimension_create (
+ table, PIVOT_AXIS_COLUMN, N_("Variables"));