* SAS sourcecode for InfluenceSimulation Example;

options linesize=70 nodate;
data orig;
   do i = 1 to 50;
       x = rannorm(0);
       y = rannorm(0);
       output;
   end;
   keep x y;

data newpoint1;
   x = 20;
   y = 20;
   output;

data model1;
   set orig newpoint1;

proc reg;
   model y = x / influence;
   plot y * x;

data newpoint2;
   x = 0;
   y = 20;
   output;

data model2;
   set orig newpoint2;

proc reg;
   model y = x / influence;
   plot y * x;

run;
quit;