detreeexp1_7.m

支持向量机工具箱

%设置全局变量
global meas species bad numobs
global  x y j tree
global resubcost cost secost ntermnodes bestlevel

%--------------------------------------------------------------------------
% COST = TREETEST(T,'resubstitution')函数计算决策树T的代价并返回值到COST

% 运用回代方法计算代价
resubcost = treetest(tree,'resub');

% 返回secost变量
% secost变量含有每个代价的标准误差
% 其中cost变量为交叉确认得到的代价
[cost,secost,ntermnodes,bestlevel] = treetest(tree,'cross',meas(:,1:2),species);

% cost用直线表示 resucost用虚线表示
plot(ntermnodes,cost,'b-', ntermnodes,resubcost,'r--')

%显示离散值
figure(gcf);
xlabel('叶结点数量');
ylabel('代价 (错误分类误差)');
legend('交叉确认法','回代法');