eiji.m

.m source file about soft compute.

%The file crime contains the rates of seven types of 
%crime as reported in the 1970 Statistical Abstract for
%16 American cities.  The variables in the data set are
%as follows:
%
%  1 City (see codes below)
%  2 Murder 
%  3 Rape
%  4 Robbery
%  5 Assault
%  6 Burglary
%  7 Larceny
%  8 Auto Theft
%
%The murder and rape rates are per 1,000,000 population; the 
%others are per 100,000 population.  The city codes are:
%
%01 = Atlanta     09 = Houston                   
%02 = Boston      10 = Kansas City               
%03 = Chicago     11 = Los Angeles               
%04 = Dallas      12 = New Orleans               
%05 = Denver      13 = New York                  
%06 = Detroit     14 = Portland                  
%07 = Hartford    15 = Tucson                    
%08 = Honolulu    16 = Washington  
%
%=== 16 Data === Distance should be computed in 7-D space

data = [
165 248 106 147 1112  905 494;
42 133 122  90  982  669 954;
116 247 340 242  808  609 645;
181 342 184 293 1668  901 602;
69 415 173 191 1534 1368 780;
130 357 477 220 1566 1183 788;
25  88  68 103 1017  724 468;
36 127  42  28 1457 1102 637;
168 266 289 186 1509  787 697;
108 432 255 226 1494  955 765;
97 518 286 355 1902 1386 862;
103 397 266 283 1056 1036 776;
94 194 522 267 1674 1392 848;
50 230 157 144 1530 1281 488;
51 229  85 148 1206  756 483;
125 276 524 217 1496 1003 739];

X=data;
Y=pdist(X,'euclid')
size(Y)
size(X)
Z=linkage(Y,'ward');	% Ward method!!!
H=dendrogram(Z);	% Nice plot