options ls=80;
data abt;
input y factor rep;
x=1.0;
cards;
 14.87  1  1
  16.81  1  2
  15.83  1  3
  15.47  1  4
  13.60  1  5
  14.76  1  6
  17.40  1  7
  14.62  1  8
  18.43  2  1
  18.76  2  2
  20.12  2  3
  19.11  2  4
  19.81  2  5
  18.43  2  6
  17.16  2  7
  16.40  2  8
  16.95  3  1
  12.28  3  2
  12.00  3  3
  13.18  3  4
  14.99  3  5
  15.76  3  6
  19.35  3  7
  15.52  3  8
   8.59  4  1
  10.90  4  2
   8.60  4  3
  10.13  4  4
  10.28  4  5
   9.98  4  6
   9.41  4  7
  10.04  4  8
  11.55  5  1
  13.36  5  2
  13.64  5  3
  12.16  5  4
  11.62  5  5
  12.39  5  6
  12.05  5  7
  11.95  5  8
;
/*proc means;by factor;var y; 
*/
data abt1;set abt;
if factor=1 then w=0.653;
else if factor=2 then w=0.637;
else if factor=3 then w=0.162;
else if factor=4 then w=1.499;
else if factor=5 then w=1.689;

if factor=1 then x1=1; else x1=0;
if factor=2 then x2=1; else x2=0;   
if factor=3 then x3=1; else x3=0;   
if factor=4 then x4=1; else x4=0;   
if factor=5 then x5=1; else x5=0;   


proc reg data=abt1;
  weight w;
  model y=x1-x5/noint;


proc reg data=abt1;
	weight w;
	model y=x/noint;