*--------------------------------------------------------------*;             
* Link_Analysis   : Score Code ;                                              
* Cluster Variable: CLUSTER_K_5 ;                                             
* Scoring Options : COUNTS Mask Segment Links  ;                              
* Creation        : 01APR2007:19:36:37 ;                                      
*--------------------------------------------------------------*;             
LABEL C_M2= "Cluster M2";                                                     
LABEL C_M1= "Cluster M1";                                                     
LABEL C_M3= "Cluster M3";                                                     
*--------------------------------------------------------------*;             
C_M2= 0;                                                                      
C_M1= 0;                                                                      
C_M3= 0;                                                                      
*--------------------------------------------------------------*;             
drop                                                                          
_d1                                                                           
_d2                                                                           
_d3                                                                           
_d4                                                                           
_d5                                                                           
_d6                                                                           
_d7                                                                           
_d8                                                                           
_d9                                                                           
_d10                                                                          
_d11                                                                          
_d12                                                                          
;                                                                             
if ((PETALLEN>=46.41) and (PETALLEN<1E64)) then _d1=1;                        
else _d1= 0;                                                                  
if ((PETALLEN>=-1E64) and (PETALLEN<28.76)) then _d2=1;                       
else _d2= 0;                                                                  
if ((PETALLEN>=28.76) and (PETALLEN<46.41)) then _d3=1;                       
else _d3= 0;                                                                  
if ((PETALWID>=15.8) and (PETALWID<1E64)) then _d4=1;                         
else _d4= 0;                                                                  
if ((PETALWID>=-1E64) and (PETALWID<8.179)) then _d5=1;                       
else _d5= 0;                                                                  
if ((PETALWID>=8.179) and (PETALWID<15.8)) then _d6=1;                        
else _d6= 0;                                                                  
if ((SEPALLEN>=-1E64) and (SEPALLEN<54.29)) then _d7=1;                       
else _d7= 0;                                                                  
if ((SEPALLEN>=62.57) and (SEPALLEN<1E64)) then _d8=1;                        
else _d8= 0;                                                                  
if ((SEPALLEN>=54.29) and (SEPALLEN<62.57)) then _d9=1;                       
else _d9= 0;                                                                  
if ((SEPALWID>=28.39) and (SEPALWID<32.75)) then _d10=1;                      
else _d10= 0;                                                                 
if ((SEPALWID>=-1E64) and (SEPALWID<28.39)) then _d11=1;                      
else _d11= 0;                                                                 
if ((SEPALWID>=32.75) and (SEPALWID<1E64)) then _d12=1;                       
else _d12= 0;                                                                 
*--------------------------------------------------------------*;             
* Counting links;                                                             
if (_d3 and _d11) then C_M3=C_M3+48;                                          
if (_d4 and _d10) then C_M2=C_M2+50;                                          
if (_d9 and _d11) then C_M3=C_M3+52;                                          
if (_d3 and _d9) then C_M3=C_M3+52;                                           
if (_d7 and _d12) then C_M1=C_M1+56;                                          
if (_d6 and _d11) then C_M3=C_M3+58;                                          
if (_d1 and _d10) then C_M2=C_M2+58;                                          
if (_d8 and _d10) then C_M2=C_M2+58;                                          
if (_d6 and _d9) then C_M3=C_M3+58;                                           
if (_d2 and _d12) then C_M1=C_M1+66;                                          
if (_d5 and _d12) then C_M1=C_M1+66;                                          
if (_d3 and _d6) then C_M3=C_M3+76;                                           
if (_d4 and _d8) then C_M2=C_M2+76;                                           
if (_d1 and _d8) then C_M2=C_M2+88;                                           
if (_d2 and _d7) then C_M1=C_M1+90;                                           
if (_d5 and _d7) then C_M1=C_M1+90;                                           
if (_d2 and _d5) then C_M1=C_M1+100;                                          
if (_d1 and _d4) then C_M2=C_M2+100;                                          
*--------------------------------------------------------------*;             
C_M2= C_M2 / 430;                                                             
C_M1= C_M1 / 468;                                                             
C_M3= C_M3 / 344;                                                             
*--------------------------------------------------------------*;             
length _segmnt_ $12;                                                          
label _segmnt_ = 'Segmentation';                                              
drop _numtmp;                                                                 
_numtmp = C_M2;                                                               
_segmnt_= "M2";                                                               
if C_M1 gt _numtmp then do ;                                                  
   _segmnt_= "M1" ;                                                           
   _numtmp = C_M1 ;                                                           
end;                                                                          
if C_M3 gt _numtmp then do ;                                                  
   _segmnt_= "M3" ;                                                           
   _numtmp = C_M3 ;                                                           
end;