detreeexp33.m

支持向量机工具箱

global data textdata bad numobs
global  x y j quadclass tree
global dtnum dtnode dtclass 
global  grpnum node grpname

tree = treefit(data(:,1:2), textdata);
[dtnum,dtnode,dtclass] = treeval(tree, data(:,1:2));
bad_d = ~strcmp(dtclass,textdata);
numobs = size(data,1);
sum(bad_d) / numobs
 
%% We use the same technique as above to visualize the regions assigned to each textdata.
% 
[grpnum,node,grpname] = treeval(tree, [x y]);
gscatter(x,y,grpname,'grb','sod')
xlabel('Head-Width(毫米)');
ylabel('Weight(毫克)');

hold on;
plot(data(bad_d,1), data(bad_d,2), 'kx');
hold off;