data temp;
input c s;
cards;
5221.10  6977.30
4381.80  5919.00
3993.50  5153.20
3660.70  4760.60
3223.90  4140.40
2829.00  3587.00
2555.40  3254.90
2184.70  2936.40
1943.30  2622.20
1834.30  2475.60
1741.10  2366.40
1670.10  2253.40
1577.40  2210.30
1590.30  2162.00
1617.20  2090.10
1572.10  1926.10
1310.40  1577.70
1016.80  1221.00
769.7  921.6
659  784
;
run;

proc univariate normal;
run;

proc reg data=temp;
model s = c ;
run;quit;

proc reg data=temp;
model s = c / noint;
run;quit;