SAS PROGRAMMING
                                    HANDOUT # 19


      This handout will write two   SAS MACROs  to do Handout #10.

%MACRO SIM1(K=,N=,MU=,STD=,OUT=);

DATA SIMULAT;
 DO I=1 TO &K;
   DO K=1 TO &N;
    X=&MU+&STD*RANNOR(0);
 OUTPUT; END; END;
PROC SORT; BY I;
PROC MEANS NOPRINT; BY I; VAR X;
 OUTPUT OUT=AA MEAN=XBAR VAR=SSQUARE N=NUM;
DATA &OUT; SET AA;
 LOWER_M=XBAR-TINV(.975,NUM-1)*SQRT(SSQUARE/NUM);
 UPPER_M=XBAR+TINV(.975,NUM-1)*SQRT(SSQUARE/NUM);
    MM=0;  IF LOWER_M<10<UPPER_M THEN MM=1;


%MEND;

%SIM1(K=100,N=20,MU=10,STD=3,OUT=BB);
PROC MEANS DATA=BB;
RUN;
===========================================ANOTHER METHOD==========================================
%MACRO SIM2(K=,N=,MU=,STD=,OUT=);

DATA &OUT;
%DO G=1 %TO &K;
DATA ONE;
   DO K=1 TO &N;
    X=&MU+&STD*RANNOR(0);
 OUTPUT; END;
PROC MEANS NOPRINT;   VAR X;
 OUTPUT OUT=AA&G MEAN=XBAR VAR=SSQUARE N=NUM;
DATA &OUT; SET &OUT AA&G;
 LOWER_M=XBAR-TINV(.975,NUM-1)*SQRT(SSQUARE/NUM);
 UPPER_M=XBAR+TINV(.975,NUM-1)*SQRT(SSQUARE/NUM);
    MM=0;  IF LOWER_M<10<UPPER_M THEN MM=1;
 IF XBAR=. THEN DELETE;
%END;
%MEND;

%SIM2(K=100,N=20,MU=10,STD=3,OUT=CC);
PROC MEANS DATA=CC;
RUN;