隨機分配一組宏到一組新的宏

Question

我正在修改一個程序段，我需要做的是隨機分配一組宏到一個循環的每次迭代中的一組不同的宏（無需更換）。因此，舉例來說，假設我有

%let groupa = a 
%let groupb = b 
%let groupc = c 
%let group1 = &groupa; 
%let group2 = &groupb; 
%let group3 = &groupc; 

在這種情況下，我剛剛分配到組1，第2組和第3組，以組A，B族和C組，但我要的是一個循環，1組的每個迭代， group2和group3被隨機分配到grouppa，groupb或groupc。所以，也許下一次迭代是不是

%let group1 = &groupc; 
%let group2 = &groupa; 
%let group3 = &groupb; 

預先感謝您對如何做到這一點，讓我知道，如果我需要澄清什麼任何想法。謝謝！

Answer 1

嘗試此

data rand; 
do i=1 to 3; 
    r =ranuni(0); 
    output; 
end; 
run; 
proc sort data=rand; by r; run; 

data _null_; 
set rand; 
format group $6.; 
group = catt("group",i); 
if _n_ = 1 then 
    call symput(group,"&groupa"); 
else if _n_ = 2 then 
    call symput(group,"&groupb"); 
else 
    call symput(group,"&groupc"); 
run; 
%put group1: &group1; 
%put group2: &group2; 
%put group3: &group3; 

這將隨機指定A，B，和C的groupX變量。 0的種子值確保您每次都獲得一個新的集合。