function makefigure_usps
load results_usps.mat;


% rlsc vs laprlsc
subplot(2,3,1);
plot(1:45,mean(etrlsc,2),'r.-.','MarkerSize',7); hold on;
plot(1:45,mean(etlaprlsc,2),'b.-','MarkerSize',7); hold on;axis([1 45 0 22])
title(['RLS vs LapRLS']);
xlabel(['45 Classification Problems']);
ylabel(['Error Rates']);
legend('RLS','LapRLS',2);


 % svm vs lapsvm
subplot(2,3,2);
plot(1:45,mean(etsvm,2),'r.-.','MarkerSize',7); hold on;
plot(1:45,mean(etlapsvm,2),'b.-','MarkerSize',7); hold on;axis([1 45 0 22])
title(['SVM vs LapSVM']);
xlabel(['45 Classification Problems']);
ylabel(['Error Rates']);
legend('SVM','LapSVM',2);


% tsvm vs lapsvm
subplot(2,3,3);
plot(1:45,mean(ettsvm,2),'r.-.','MarkerSize',7); hold on;
plot(1:45,mean(etlapsvm,2),'b.-','MarkerSize',7); hold on;axis([1 45 0 20])
title(['TSVM vs LapSVM']);
xlabel(['45 Classification Problems']);
ylabel(['Error Rates']);
legend('TSVM','LapSVM',2);



%  out of sample extension for laprlsc
subplot(2,3,4);
plot(mean(eulaprlsc,2),mean(etlaprlsc,2),'bd',0:15,0:15,'k');
axis([0 15 0 15])
title(['Out-of-Sample Extension']);
xlabel(['LapRLS (Unlabeled)']);
ylabel(['LapRLS (Test)']);


%  out of sample extension for lapsvm
subplot(2,3,5);
plot(mean(eulapsvm,2),mean(etlapsvm,2),'bd',0:15,0:15,'k');
axis([0 15 0 15])
title(['Out-of-Sample Extension']);
xlabel(['LapSVM (Unlabeled)']);
ylabel(['LapSVM (Test)']);


% % Variance:
%  % svm vs lapsvm
% subplot(2,3,6);
% plot(1:45,std(etsvm,0,2),'r.-.','MarkerSize',7); hold on;
% plot(1:45,std(etlapsvm,0,2),'b.-','MarkerSize',7); hold on;
% plot(1:45,std(ettsvm,0,2),'g.--','MarkerSize',7); hold on;axis([1 45 0 20]);
% title(['Performance Variance']);
% xlabel(['45 Classification Problems']);
% ylabel(['Std Deviation']);
% legend('SVM','Lap-SVM','TSVM',2);


% Variance Scatter plot
subplot(2,3,6);
%plot(std(etsvm,0,2),'r.-.','MarkerSize',7); hold on;
plot(std(etlapsvm,0,2),std(etsvm,0,2),'ro'); hold on;
plot(std(etlapsvm,0,2),std(ettsvm,0,2),'bx');hold on

plot(0:6,0:6,'k');
title(['Performance Deviation']);
ylabel(['SVM (o) , TSVM (x) Deviation']);
xlabel(['LapSVM Deviation']);






% out of sample extension for rlsc
% 
% subplot(2,2,3);
% plot(mean(e_u(:,:,4),2),mean(e_t(:,:,4),2),'bd',0:16,0:16,'r');
% axis([0 16 0 16])
% title(['Out-of-Sample Extension (Laplacian RLSC)']);
% xlabel(['Laplacian RLSC (Unlabeled Data)']);
% ylabel(['Laplacian RLSC (Test Data)']);