Hi RW9, Thanks for responding so quickly. The line 140 &GRAPHTERM; ;*';*";*/;RUN;QUIT; isn¹t part of the code I wrote. It just came out in the log. I was assuming this was something that SAS Studio generated. I just wrote this over the weekend and it ran yesterday. Here is my code: options mprint symbolgen MAUTOSOURCE SASAUTOS="/folders/myfolders/SASMacs"; data birthwt; set npar.birthwt; if program="Drug" then Trt=1; else if program="Placebo" then Trt=2; %macro Moses(data=birthwt,class=Trt,var=birthwt,k=4,exact=yes) And here is the macro: %macro Moses(data=_last_, class=, var=, k= , exact=no); data &data; set &data nobs=n; Shuffle=ranuni(2394857); /* Check for numeric class variable */ type=vtype(&class); CALL SYMPUT('type',TRIM(LEFT(PUT(type,$1.)))); if type="N" then do; charclass=STRIP(PUT(&class, z10.)); end; else do; length charclass $10.; charclass=&class; end; /*==================================*/ proc sort out=&data; by &class Shuffle; proc means noprint; class &class; var &var; output out=SamSize n=n; data n1; set SamSize; if _N_=2; CALL SYMPUT('n1',TRIM(LEFT(PUT(n,10.)))); CALL SYMPUT('grp1',TRIM(LEFT(PUT(&class,$10.)))); data n2; set SamSize; if _N_=3; CALL SYMPUT('n2',TRIM(LEFT(PUT(n,10.)))); CALL SYMPUT('grp2',TRIM(LEFT(PUT(&class,$10.)))); data Group1; do j=1 to floor(&n1/&k); do i=1 to &k; subgroup=j; set &data; if &class=%str("&grp1"); output; end; end; data Group2; do j=1 to floor(&n2/&k); do i=1 to &k; subgroup=j; set &data; if &class=%str("&grp2"); output; end; end; data Group1; Set Group1; if _N_>&n1-mod(&n1,&k) then delete; data Group2; Set Group2; if _N_>&n2-mod(&n2,&k) then delete; proc append base=Group1 data=Group2; proc summary noprint; class &class subgroup; var Na; output out=Variances var=Variance; data Variances; set Variances; if _TYPE_ < 3 then delete; proc npar1way wilcoxon; class &class; var Variance; %if %upcase(%substr(&exact,1,1))=Y %then %str(exact wilcoxon;); title "Moses Rank-like Procedure"; run; %mend Moses; Thanks again! ##- Please type your reply above this line. Simple formatting, no attachments. -##
... View more