my_svmtrte.m

simple GASVM for LS-SVM

function rate = my_SVMtrte(f)

fid = fopen('C:\Iris_2.txt');
my_data = fscanf(fid,'%g',[5 100]);
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(:,5);
type = 'c';
gam = 10;
sig2 = 1;
kernel = 'RBF_kernel';
preprocess = 'preprocess';
Xval = my_data(:,index);
Yval = my_data(:,5);
L = 88;
%[cost, costs, ec] = crossvalidate({X,Y,type,gam,sig2,kernel,preprocess}, Xval, Yval, L);
%[rate, n, which] = misclass(Y, ec);
[alpha, b] = trainlssvm({X,Y,type,gam,sig2,kernel,preprocess})