*--------------------------------------------------------------*;             
* Link_Analysis   : Score Code ;                                              
* Cluster Variable: CLUSTER_K_5 ;                                             
* Scoring Options : COUNTS Mask Segment Nodes  ;                              
* Creation        : 01APR2007:19:35:15 ;                                      
*--------------------------------------------------------------*;             
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 nodes;                                                             
if _d1 then C_M2=C_M2+60;                                                     
if _d2 then C_M1=C_M1+50;                                                     
if _d3 then C_M3=C_M3+40;                                                     
if _d4 then C_M2=C_M2+52;                                                     
if _d5 then C_M1=C_M1+50;                                                     
if _d6 then C_M3=C_M3+48;                                                     
if _d7 then C_M1=C_M1+52;                                                     
if _d8 then C_M2=C_M2+51;                                                     
if _d9 then C_M3=C_M3+47;                                                     
if _d10 then C_M2=C_M2+60;                                                    
if _d11 then C_M3=C_M3+47;                                                    
if _d12 then C_M1=C_M1+43;                                                    
*--------------------------------------------------------------*;             
C_M2= C_M2 / 223;                                                             
C_M1= C_M1 / 195;                                                             
C_M3= C_M3 / 182;                                                             
*--------------------------------------------------------------*;             
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;