options nodate nonumber ps=55 ls=76; title 'Pharmacodynamic Study'; title2 'Y=Math Score X=Tissue LSD Concentration'; data lsd; input score conc; cards; 78.93 1.17 58.20 2.97 67.47 3.26 37.47 4.69 45.65 5.83 32.92 6.00 29.97 6.41 ; run; proc reg; model score=conc / p r; run; symbol1 c=black i=rl v=dot; proc gplot; plot score*conc=1 / frame; run; quit;