options nodate nonumber ps=55 ls=80;

title 'RPD -- Example 1.12 -- Y=Rel Risk-1, X=Dust Exposure';

data rr_dust;
input dust rr @@;
rr_1=rr-1;
cards;
75 1.10 100 1.05 150 0.97 350 1.90 600 1.83 900 2.45
1300 3.70 1650 3.52 2250 4.16
;

proc print;
run;

proc plot;
plot rr_1*dust;
run;

proc reg;
model rr_1=dust / noint p r;
run;