* WLoss1 Example -- Source code file wloss1.sas;

options linesize=70 nodate;
data wloss;
   input center $ @;
   do i = 1 to 10;
      input loss @;
      output;
   end;
   drop i;
   label center = 'Weight Loss Center'
         loss = 'Amount of Weight Loss';
   datalines;
C  8.5 11.6 10.2 10.9  9.0  9.6  9.9 11.3 10.5 11.2
D  8.7  9.3  8.2  8.3  9.0  9.4  9.2 12.2  8.5  9.9   
;

proc print;
	
proc anova;
   class center;
   model loss=center;
   
data with_dummy;
   set wloss;
   if center='C'
      then dummy_var = 1;
   else if center='D'
      then dummy_var = 0;
   keep dummy_var loss;
   label dummy_var = 'Weight Loss Center'
         loss = 'Amount of Weight Loss';
   
proc print;
	
proc reg data=with_dummy;
   model loss = dummy_var;
   plot r.*p. r.*nqq.;
   
run;
quit;