detreeexp35.m

支持向量机工具箱

global data textdata

global grpnum node grpname tree
 
global cost secost ntermnodes bestlevel
% 计算分类代价
resubcost = treetest(tree,'resub');
[cost,secost,ntermnodes,bestlevel] = treetest(tree,'cross',data(:,1:2), textdata(:,1));
plot(ntermnodes,cost,'b-', ntermnodes,resubcost,'r--')
figure(gcf);
xlabel('叶结点数量');
ylabel('代价 (错误分类误差)');
legend('交叉确认法','回代法');

%   把min(cost) 得出cost列变量中的最小值赋给mincost变量
%   cost列变量中的最小值的索引号赋给minloc变量
[mincost,minloc] = min(cost);

% cutoff为截止值
% 其中secost（minloc）为secost第五行第一列的值
cutoff = mincost + secost(minloc);

hold on
%截止值用虚线表示
plot([0 20], [cutoff cutoff], 'k:')
%最佳层数用圆圈圈出
plot(ntermnodes(bestlevel+1), cost(bestlevel+1), 'mo')
legend('交叉确认法','回代法','最小代价＋一个标准误差.','最佳选择')
hold off