function [POS]=dosvmkernel(M,Y,P,x,E,CLUSTER)
Y1=repmat(-1*Y,15,1);
M1=M.*Y1;
M2=[M1;Y];
N=[diag(M1)-1 ;0];
lambda=pinv(M2)*N;
[POS1,POS2]=find(lambda>=0);
S=0;
for i=1:1:size(P,2)
 S=S+lambda(i)*k11(P(:,i),P(:,POS1(1)),10)*Y(i)*Y(POS1(1));
end
b=Y(POS1(1))*(1-S);
%Projected training vectors
PSVMTRAINING=[];
for i=1:1:size(M,2)
PSVMTRAINING=[PSVMTRAINING sum(M(:,i).*lambda.*Y')+b];
end
load TESTLPC
DATA=[];
for i=1:1:3
    DATA=[DATA TESTLPC{i}(1:1:x,:)];
end
U=isnan(DATA);
[R,S]=find(U==1);
for i=1:1:length(R)
    DATA(R(i),S(i))=eps;
end
P1=E'*DATA;
for i=1:1:size(P1,2)
    for j=1:1:size(P,2)
P2(j,i)=k11(P1(:,i),P(:,j),10);        
    end
end
PSVMTESTING=[];
for i=1:1:size(P2,2)
PSVMTESTING=[PSVMTESTING sum(P2(:,i).*lambda.*Y')+b];
end
R=find(PSVMTESTING>0);
COL=[]
for i=1:1:length(R)
   F= find((CLUSTER-R(i))==0);
    COL=[COL F];
end
POS=(length(COL)/5)*100;    
