function [output] = plot_roc(true_pairs, false_pairs);
% PLOT_ROC: plot a bunch of results in the form of ROC curves to aid comparison of face recognition methods or any other classification problem for that matter
%
%    Licensing
%
%      GNU GPL version 3
%
%    GENERAL
%
%      Script
%
%    INPUT/S
%
%      None
%
%    OUTPUT/S
%
%      -output: placeholder
%
%    PENDING WORK
%
%      -
%
%    KNOWN BUG/S
%
%      -
%
%    COMMENT/S
%
%      -
%
%    RELATED FUNCTION/S
%
%      
%
%    ABOUT
%
%      -Created:     May 2011
%      -Last update: August 2011
%      -Revision:    0.0.1
%      -Author:      Dr. R. S. Schestowitz
% ==============================================================

% frvt 




% threshold=1.0e+05 *0.5;
use_threshold=1; % boolean

threshold=1.0e+05 *0.6;
threshold_higher=100;
threshold_error=1.0e+05 *6.0;

threshold=4;
threshold_higher=9;
threshold_error=25.0;

threshold=1.0e+06 * 0.5;
threshold_higher=1.0e+06 *1.0;
threshold_error=1.0e+06 * 4.8;

figure;
if (use_threshold)
  true_pairs=[true_pairs(true_pairs<threshold), true_pairs(true_pairs>threshold_higher)] % set threshold for avoiding erroneous value
  false_pairs=[false_pairs(false_pairs<threshold), false_pairs(false_pairs>threshold_higher)] % again as above

false_pairs=false_pairs(false_pairs<threshold_error);
true_pairs=true_pairs(true_pairs<threshold_error);
end

true_pairs=true_pairs';
true_pairs(:,2)=1;

false_pairs=false_pairs';
false_pairs(:,2)=0;

all_pairs=[true_pairs;false_pairs]
roc(all_pairs);
