basicroc.m

Gentleboost

function [tp , fp , threshold] = basicroc(y , f , options)

%
%[tp , fp , threshold] = basicroc(y , f , [positive]);
%
% Return the true positive rate, the false positive rate and the threshold
%
%
%  Author : S閎astien PARIS : [e-mail]
%  -------  Date : 04/09/2006



if nargin < 3
    
    options.positive = 1;
    
    options.nbstep   = 100;
    
end

if (~any(strcmp(fieldnames(options) , 'positive')))

    options.positive = 1;

end

if (~any(strcmp(fieldnames(options) , 'nbstep')))

    options.nbstep   = 100;

end


yunique            = unique(y);
%bin                = histc(y , yunique);
%petite modification pour le cas o