function error=cerror(y1,y2,label)% CERROR Computes classification error.%% Synopsis:%  error = cerror(ypred,ytrue)%  error = cerror(ypred,ytrue,label) %% Description:%  error = cerror(ypred,ytrue) returns classification error, i.e.,%      error=  find(ypred~=ytrue)/length(ytrue).%%  error = cerror(ypred,ytrue,label) considers only labels%    find(ytrue==label), i.e., if ypred, ytrue are from {1,2} then%%   false_positives_rate = cerror(ypred,ytrue,2)%   false_negatives_rate = cerror(ypred,ytrue,1)%% Input:%  y1 [1 x n] Vector of integers (response of classifier).%  y2 [1 x n] Vector of integers (ground truth).%  label [int] Selected label.%% Output:%  error [real] Error. %% Example:%  classifier  = [1,1,1,2]%  groundtruth = [2,1,2,1]%  error = cerror(classifier,groundtruth)%  false_pos = cerror(classifier,groundtruth,2)%  false_neg = cerror(classifier,groundtruth,1)%% See also %  ROC%% About: Statistical Pattern Recognition Toolbox% (C) 1999-2003, Written by Vojtech Franc and Vaclav Hlavac% <a href="http://www.cvut.cz">Czech Technical University Prague</a>% <a href="http://www.feld.cvut.cz">Faculty of Electrical Engineering</a>% <a href="http://cmp.felk.cvut.cz">Center for Machine Perception</a>% Modifications:% 08-aug-2005, VF% 09-jun-2004, VF% 14-Jan-2003, VFy1=y1(:);y2=y2(:);if nargin < 3,  error=length(find((y1-y2)~=0))/length(y2);else  inx = find(y2==label);  error = length( find(y1(inx)~=label) )/length(inx);endreturn;