/* Lesson 7-7 */
 /*    File Name = reg11.sas   11/22/96   */

data zenin;
  infile 'all.dat';
  input seibetsu $ shintyou taijyuu kyoui kozukai jitaku $ daigaku $;

proc reg data=zenin;
  model shintyou=taijyuu;
  output out=o_reg1 predicted=pred1 residual=resid1;
  where seibetsu='F';
run;

proc print data=o_reg1;
run;
proc means data=o_reg1;
  var shintyou pred1 resid1;
run;

proc plot data=o_reg1;
  plot taijyuu*shintyou;
  plot pred1*shintyou;
  plot resid1*shintyou;
run;