options ls=80;

data gpa;
input y x;
 label y=GPA at the end of the freshman year
       x=Entrance test score;
cards;
    3.1    5.5
    2.3    4.8
    3.0    4.7
    1.9    3.9
    2.5    4.5
    3.7    6.2
    3.4    6.0
    2.6    5.2
    2.8    4.7
    1.6    4.3
    2.0    4.9
    2.9    5.4
    2.3    5.0
    3.2    6.3
    1.8    4.6
    1.4    4.3
    2.0    5.0
    3.8    5.9
    2.2    4.1
    1.5    4.7
;

proc print data=gpa;


proc reg data=gpa;
  model y=x;

proc plot data=gpa;
  plot y*x;