goptions reset=all; 
title "Decoding Example"; 

data gen; 
input tech $ decode length tech1 tech2 tech3  
                               ltech1   ltech2   ltech3;
cards;
A    15.3      422      1    0    0     422      0      0
A    19.0      815      1    0    0     815      0      0
A    28.2     1279      1    0    0    1279      0      0
A    34.7     1067      1    0    0    1067      0      0
A    24.1      883      1    0    0     883      0      0
A    22.9      988      1    0    0     988      0      0
B    38.0      876      0    1    0       0    876      0
B    34.5      761      0    1    0       0    761      0
B    32.2      594      0    1    0       0    594      0
B    41.2     1276      0    1    0       0   1276      0
B    33.8     1069      0    1    0       0   1069      0
B    46.1     1071      0    1    0       0   1071      0
C    25.1     1072      0    0    1       0      0   1072
C    22.6      849      0    0    1       0      0    849
C    33.1     1173      0    0    1       0      0   1173
C    28.1      946      0    0    1       0      0    946
C    16.6      389      0    0    1       0      0    389
C    24.8      810      0    0    1       0      0    810
 ;
proc gplot; 
plot decode*length=tech; 
symbol1 v=dot h=1.5 i=rl; 

proc reg;
model decode = length tech1 tech2 tech3; 
run; 

proc reg;
model decode = length tech1 tech2 Ltech1 Ltech2/ss1; 
Interaction: test Ltech1=0, Ltech2=0; 
run;