|
K*F wrote
Can anyone help me trouble shoot the code below?
%macro rand2 (blnum=,fileName=);
TITLE 'COMPLETELY RANDOMIZED DESIGN';
DATA A;
DO UNIT=1 TO &blnum;
IF (UNIT <= &blnum/2) THEN TREAT = 1;
ELSE TREAT = 2;
OUTPUT;
END;
PROC PLAN;
FACTORS UNIT=&blnum;
OUTPUT DATA=A OUT=B;
PROC SORT;
BY UNIT;
PROC PRINT;
RUN;
%mend;
%macro analysis (seed=,max_size=,mu=);
data test;
nk=min(&max_size,ranpoi(&seed,&mu));
call symput('nk',nk);put nk=;run;
%rand2(blnum=&nk.,fileName=test); /* problem line */
run;
%mend;
|
