my_loocv.m

simple GASVM for LS-SVM

function rate = my_loocv(f)
global my_data
%{
fid = fopen('C:\music_1_2.txt');
my_data = fscanf(fid,'%g',[10 180]);
my_data = my_data';
fclose(fid);
%}
while f == zeros(1,size(f,2)) 
   f=zeros(1,size(f,2));
   for i = 1:size(f,2)
   temp = round(rand(1,size(f,2)));
   f(1,:)=temp;
   end
end
index = find(f==1);
X = my_data(:,index);
Y = my_data(:,10);
type = 'c';
gam = 10;
sig2 = 1;
kernel = 'RBF_kernel';
preprocess = 'preprocess';
Xval = my_data(:,index);
Yval = my_data(:,10);
L = 88;
%[cost, costs, el] = leaveoneout({X,Y,type,gam,sig2,kernel,preprocess}, Xval, Yval);
[cost, costs, ec] = crossvalidate({X,Y,type,gam,sig2,kernel,preprocess}, Xval, Yval, L);
[rate, n, which] = misclass(Y, ec);