- se /= case_data_idx (cc, FN)->f +
- case_data_idx (cc, TP)->f ;
+ struct ccase *cc;
+ int coord_idx = 0;
+ for (; (cc = casereader_read (r)) != NULL; case_unref (cc))
+ {
+ const double se = case_data_idx (cc, ROC_TP)->f /
+ (case_data_idx (cc, ROC_TP)->f + case_data_idx (cc, ROC_FN)->f);
+
+ const double sp = case_data_idx (cc, ROC_TN)->f /
+ (case_data_idx (cc, ROC_TN)->f + case_data_idx (cc, ROC_FP)->f);
+
+ pivot_table_put3 (
+ table, 0, coord_idx, var_idx,
+ pivot_value_new_var_value (roc->vars[i],
+ case_data_idx (cc, ROC_CUTPOINT)));
+
+ pivot_table_put3 (table, 1, coord_idx, var_idx,
+ pivot_value_new_number (se));
+ pivot_table_put3 (table, 2, coord_idx, var_idx,
+ pivot_value_new_number (1 - sp));
+ coord_idx++;
+ }