fisher.m

来自「fisher文件」· M 代码 · 共 32 行

clear;
clf;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 留半法对Student数据进行判别 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
fprintf('\n学生数据:\n');
fprintf('第一次:\n');
%     读数据
[TrainSet,TestSet]=ReadStudent;
%     进行训练
[Training]=Train_Set(TrainSet);
%     测试
fprintf('测试集:\n');
E1=Test_Set(TestSet,Training);

fprintf('第二次:\n');
[TestSet,TrainSet]=ReadStudent;
[Training]=Train_Set(TrainSet);
fprintf('测试集:\n');
E2=Test_Set(TestSet,Training);

fprintf('总体:\n');
fprintf('测试集:\n');
E=E1+E2;
for k=1:4
    e1=E(k,1)/(TestSet.n1+TrainSet.n1);
    e2=E(k,2)/(TestSet.n2+TrainSet.n2);
    e=(E(k,1)+E(k,2))/(TestSet.n+TrainSet.n);
    fprintf('方法%d:',k);    
    fprintf('\t测试集错误率:e1=%.2f%%,e2=%.2f%%,e=%.2f%%\n',e1*100,e2*100,e*100);
end

DrawGraph(Training,TestSet,E2);
clear;