
function [Acc, stats] = jKNNTest(feat,label,tFeat, tTest)
%---// Parameter setting for k-value of KNN //
k = 5; 

xtrain = feat;  ytrain = label; 
xtest = tFeat;      ytest = tTest; 
Model  = fitcknn(xtrain,ytrain,'NumNeighbors',k); 
ypred  = predict(Model,xtest);

num_test = length(ytest);
correct   = 0;
for i = 1:num_test
  if isequal(ytest(i),ypred(i))
    correct = correct + 1;
  end
end
Acc = 100 * (correct / num_test); 

g1 = ytest';
g2 = ypred;

C = confusionmat(g1,g2);

[stats] = statsOfMeasure(C, 1);


end