- if ( roc->n_vars > 1)
- tab_text (tbl, 0, x, TAT_TITLE, var_to_string (roc->vars[i]));
-
- if ( i > 0)
- tab_hline (tbl, TAL_1, 0, n_cols - 1, x);
-
-
- for (; (cc = casereader_read (r)) != NULL;
- case_unref (cc), x++)
- {
- const double se = case_data_idx (cc, TP)->f /
- (
- case_data_idx (cc, TP)->f
- +
- case_data_idx (cc, FN)->f
- );
-
- const double sp = case_data_idx (cc, TN)->f /
- (
- case_data_idx (cc, TN)->f
- +
- case_data_idx (cc, FP)->f
- );
-
- tab_double (tbl, n_cols - 3, x, 0, case_data_idx (cc, CUTPOINT)->f,
- var_get_print_format (roc->vars[i]));
-
- tab_double (tbl, n_cols - 2, x, 0, se, NULL);
- tab_double (tbl, n_cols - 1, x, 0, 1 - sp, NULL);
- }
-
- casereader_destroy (r);
- }
-
- tab_submit (tbl);
-}
-
-
-static void
-draw_roc (struct roc_state *rs, const struct cmd_roc *roc)
-{
- int i;
-
- struct chart *roc_chart = chart_create ();
-
- chart_write_title (roc_chart, _("ROC Curve"));
- chart_write_xlabel (roc_chart, _("1 - Specificity"));
- chart_write_ylabel (roc_chart, _("Sensitivity"));
-
- chart_write_xscale (roc_chart, 0, 1, 5);
- chart_write_yscale (roc_chart, 0, 1, 5);
-
- if ( roc->reference )
- {
- chart_line (roc_chart, 1.0, 0,
- 0.0, 1.0,
- CHART_DIM_X);
- }