% két síkbeli ponthalmaz szeparálása svm-mel

 %A=importdata('elemek.txt');
 
 A=load('elemek.txt');
 figure; gscatter(A(:,1),A(:,2),A(:,3),'br','*o')
 
 x=A(:,1:2);
 d=A(:,3);
 model=fitcsvm(x,d);
 sv=model.SupportVectors;
 gscatter(x(:,1),x(:,2),d,'br','x*');
 hold on
 plot(sv(:,1),sv(:,2),'ko','MarkerSize',10)
 legend('group 1','group 2','support vector')
 refline(-model.Beta(1)/model.Beta(2),-model.Bias/model.Beta(2));
 hold off

 y=predict(model,x);
 crosstab(y,d)