*NKNW100b.sas;
libname xxx 'C:\Ageorge\Purdue\Stat512\Fall00\Programs';
options nocenter;
/*
Data xxx.a100b1; 
   do x=1 to 100 by 5; 
      y=30+50*x+200*normal(0);
      output;
   end;
   x=50; y=30+50*50 +10000;
   d='out'; output;
run;
*/
proc reg data=xxx.a100b1;
   model y=x;
   where d ne 'out';
run;
proc reg data=xxx.a100b1;
   model y=x;
   output out=a2 r=resid;
run;
symbol1 v=circle i=rl;
proc gplot data=a2;
   plot y*x/frame;
proc gplot data=a2;
   plot resid*x/frame vref=0;
run;