dataset='FL'; % Dataset
tunemethod='linesearch'; % Tune method
tunepar={-20,20,1,0.5}; % Tune parameters (serach range/initial values)
testmethod='CVk'; % Test method
testpar={3}; % Test parameters

func='APTER_p'; % Model function
demo;
c0=ctest;
t0=ttime;
m0=memo;

func='PH-L1'; % Model function
demo;
c1=ctest;
t1=ttime;
m1=memo;

func='MINLIP_p'; % Model function
demo;
c2=ctest;
t2=ttime;
m2=memo;

func='MODEL2'; % Model function
demo;
c3=ctest;
t3=ttime;
m3=memo;


figure;
plot(c0);
hold all;
plot(c1);
hold all;
plot(c2);
hold all;
plot(c3);
set(gca,'XTick',1:length(m)) 
set(gca,'XTicklabel',m)
legend('APTER_p','PH-L1','MINLIP_p','MODEL2')
title('C-index')

figure;
plot(t0);
hold all;
plot(t1);
hold all;
plot(t2);
hold all;
plot(t3);
set(gca,'XTick',1:length(m)) 
set(gca,'XTicklabel',m)
legend('APTER_p','PH-L1','MINLIP_p','MODEL2')
title('Time cost')


figure;
plot(m0);
hold all;
plot(m1);
hold all;
plot(m2);
hold all;
plot(m3);
set(gca,'XTick',1:length(m)) 
set(gca,'XTicklabel',m)
legend('APTER_p','PH-L1','MINLIP_p','MODEL2')
title('Memory cost')

figure;
boxplot([x1,x2,x3,x4,x5,x6],'labels',{'RankBoost','APTERp','Pen-L1','Pen-L2','ISIS-APTERp','ISIS-SCAD'})
title('Boxplot on FL' )