SAS PROGRAMMING
                                    HANDOUT #34


DATA YANG;
 DO DOSE=1 TO 5;
  DO N=1 TO 10;
  Y=DOSE+RANNOR(0);
 OUTPUT; END; END;

PROC SORT; BY DOSE;
PROC MEANS NOPRINT; BY DOSE; VAR Y;
 OUTPUT OUT=AA MEAN=MEAN  LCLM=LCLM UCLM=UCLM;
DATA AA1; SET AA; Y=MEAN; A=1;
DATA AA2; SET AA; Y=LCLM; A=1;
DATA AA3; SET AA; Y=UCLM; A=1;
DATA AA4; SET AA; Y=MEAN; A=2;
DATA BB; SET AA1 AA2 AA3 AA4;
GOPTIONS DEVICE=WIN;
*GOPTIONS DEVICE=WINPRTM;
PROC GPLOT;
 PLOT Y*DOSE=A/ VAXIS=AXIS1 HAXIS=AXIS2 NOLEGEND;
 TITLE1 H=1 F=SWISSB 'DOSE RESPONSE CURVE';
 TITLE2 H=1 F=SWISSB 'WITH CONFIDENCE INTERVALS';
 AXIS1  LABEL=(H=1 ROTATE=0 ANGLE=90 F=SWISSB "RESPONSE LEVEL" ) W=1 VALUE=(F=SWISSB)
        ORDER=0 TO 8 BY 1;
 AXIS2  LABEL=(H=1 F=SWISSB "DOSE LEVEL" ) W=1 VALUE=(F=SWISSB)
        ORDER=0 TO 6 BY 1;
 FOOTNOTE H=1  F=SWISSB J=L 'DONE 2/18/2001';
 SYMBOL1 W=3 V=NONE I=HILOT L=2 C=RED;
 SYMBOL2 W=3 V=DOT I=JOIN L=1 C=BLACK;
RUN;
QUIT;