-
-static struct tab_table *
-create_combo_frequency_table (const struct chisquare_test *test)
-{
- int i;
- const struct one_sample_test *ost = (const struct one_sample_test*)test;
-
- struct tab_table *table ;
-
- int n_cells = test->hi - test->lo + 1;
-
- table = tab_create(1 + ost->n_vars * 4, n_cells + 3, 0);
- tab_dim (table, tab_natural_dimensions);
-
- tab_title (table, _("Frequencies"));
- for ( i = 0 ; i < ost->n_vars ; ++i )
- {
- const struct variable *var = ost->vars[i];
- tab_text (table, i * 4 + 1, 1, TAB_LEFT, _("Category"));
- tab_text (table, i * 4 + 2, 1, TAB_LEFT, _("Observed N"));
- tab_text (table, i * 4 + 3, 1, TAB_LEFT, _("Expected N"));
- tab_text (table, i * 4 + 4, 1, TAB_LEFT, _("Residual"));
-
- tab_vline (table, TAL_2, i * 4 + 1,
- 0, tab_nr (table) - 1);
-
- tab_vline (table, TAL_1, i * 4 + 2,
- 0, tab_nr (table) - 1);
-
- tab_vline (table, TAL_1, i * 4 + 3,
- 1, tab_nr (table) - 1);
-
- tab_vline (table, TAL_1, i * 4 + 4,
- 1, tab_nr (table) - 1);
-
-
- tab_joint_text (table,
- i * 4 + 1, 0,
- i * 4 + 4, 0,
- TAB_CENTER,
- var_to_string (var));
- }
-
- for ( i = test->lo ; i <= test->hi ; ++i )
- tab_float (table, 0, 2 + i - test->lo,
- TAB_LEFT, 1 + i - test->lo, 8, 0);
-
- tab_headers (table, 1, 0, 2, 0);
-
- tab_box (table, TAL_1, TAL_1, -1, -1,
- 0, 0, table->nc - 1, tab_nr(table) - 1 );
-
- tab_hline (table, TAL_1, 1, tab_nc(table) - 1, 1);
- tab_hline (table, TAL_1, 0, tab_nc(table) - 1, 2);
-
- tab_text (table, 0, table->nr - 1, TAB_LEFT, _("Total"));
-
- return table;
-}
-
-
-static struct tab_table *
-create_stats_table (const struct chisquare_test *test)
-{
- const struct one_sample_test *ost = (const struct one_sample_test*) test;
-
- struct tab_table *table;
- table = tab_create (1 + ost->n_vars, 4, 0);
- tab_dim (table, tab_natural_dimensions);
- tab_title (table, _("Test Statistics"));
- tab_headers (table, 1, 0, 1, 0);
-
- tab_box (table, TAL_1, TAL_1, -1, -1,
- 0, 0, tab_nc(table) - 1, tab_nr(table) - 1 );
-
- tab_box (table, -1, -1, -1, TAL_1,
- 1, 0, tab_nc(table) - 1, tab_nr(table) - 1 );
-
-
- tab_vline (table, TAL_2, 1, 0, tab_nr (table) - 1);
- tab_hline (table, TAL_1, 0, tab_nc (table) - 1, 1);
-
-
- tab_text (table, 0, 1, TAB_LEFT, _("Chi-Square"));
- tab_text (table, 0, 2, TAB_LEFT, _("df"));
- tab_text (table, 0, 3, TAB_LEFT, _("Asymp. Sig."));
-
- return table;
-}
-
-