OPTIONS LS=72;

DATA;
INPUT nico co;
CARDS;
0.2 2
0.4 10
0.6 13
0.8 15
1.0 20
;
PROC PRINT;


PROC CORR;
   VAR nico co;

TITLE1'NINETY PERCENT CONFIDENCE INTERVALS';
PROC GLM;
   MODEL co=nico/ p cli alpha=.1;
PROC GLM;
   MODEL co=nico /p clm alpha=0.1;
output out=regout p=p_co r=r_co;

proc plot;
   plot p_co*nico='p' co*nico='a' / overlay;

plot r_co*co;

plot r_co*p_co;


run;