options ls=80;
data maps;
input y x;
label x=Maps Distributed y=Increase in Ridership;
xsq=x*x;
cards;
0.60 80
6.70 220
5.30 140
4.00 120
6.55 180
2.15 100
6.60 200
5.75 160
;
proc plot data=maps;
 plot y*x;

proc reg data=maps;
 model y=x;
output out=tom p=pred r=resid;

proc plot data=tom;
  plot resid*x resid*pred;

proc reg data=maps;
 model y=x xsq;
output out=matt p=pred r=resid;

proc plot data=matt;
  plot resid*x resid*pred;  

run;