options nodate nonumber ps=60 ls=72;
data complete;
infile "c:/documents and settings/jvevea/desktop/grades.txt";
input grades pared homework;

data drop34;
set complete;
if _N_=34 then delete;

proc glm data=complete;
   model grades = pared homework;
   output p=fit r=residual rstudent=extern h=leverage cookd=influence;
   title "Regression with complete data";
proc gplot;
   plot residual*fit;

proc glm data=drop34;
   model grades = pared homework;
   output p=fit r=residual rstudent=extern h=leverage cookd=influence;
   title "Regression with case 34 removed";
proc gplot;
   plot residual*fit;

proc print;
run;