SAS要做permutation test，第一步如何随机排列数字

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

想做permutation test，但是先要随机排列三列数字，我想请问这个如何用SAS实现啊？大概就是类似下边的数据，第一列不动，将后边的三列在各自的列中同时随机排列。

编号	年龄	工作年限	抑郁得分
100101	26	10	16
100102	29	12	23
100103	35	26	25
100104	48	16	10
100105	32	12	18
100106	44	25	32

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：Permutation Mutation ATION test TIO 如何

不懂帮顶

这个时候为什么就感觉r软件好方便了……

把数据集的每一列通过keep函数保存为四个数据集，然后对后三个数据集通过产生随机数随机排列，然后将四个数据集通过set a;set b;set c;set d;并排到一起

李会超 发表于 2014-10-31 13:58
把数据集的每一列通过keep函数保存为四个数据集，然后对后三个数据集通过产生随机数随机排列，然后将四个数 ...

刚开始用SAS。。非常白痴 我想问能不能直接在一个数据集里边随机排列这三列数据啊？主要是我要排列产生10000个随机排列的这三列数字 如果每次都随机排列合并的话 有点麻烦

1. data test;
   
2. input id age year grades;
   
3. cards;
   
4. 100101        26        10        16
   
5. 100102        29        12        23
   
6. 100103        35        26        25
   
7. 100104        48        16        10
   
8. 100105        32        12        18
   
9. 100106        44        25        32
   
10. ;
    
11. run;
    
12. proc sql;
    
13. select age,year,grades into:new_age separated by ' ',:new_year separated by ' ',:new_grades separated by ' ' from test;
    
14. quit;
    
15. data test1;
    
16. set test;
    
17. retain t1 t2 t3;
    
18. if _n_=1 then do;t1="&new_age";t2="&new_year";t3="&new_grades";end;
    
19. a0=compress(t1);
    
20. a1=length(a0)/2;
    
21. a2=int(1+a1*ranuni(0))*2-1;
    
22. age_new=substr(a0,a2,2);
    
23. substr(t1,find(t1,compress(age_new),' '),2)=' ';
    
24. 
    
25. b0=compress(t2);
    
26. b1=length(b0)/2;
    
27. b2=int(1+b1*ranuni(0))*2-1;
    
28. year_new=substr(b0,b2,2);
    
29. substr(t2,find(t2,compress(year_new),' '),2)=' ';
    
30. 
    
31. c0=compress(t3);
    
32. c1=length(c0)/2;
    
33. c2=int(1+c1*ranuni(0))*2-1;
    
34. grades_new=substr(c0,c2,2);
    
35. substr(t3,find(t3,compress(grades_new),' '),2)=' ';
    
36. 
    
37. age=input(age_new,8.);
    
38. year=input(year_new,8.);
    
39. grades=input(grades_new,8.);
    
40. keep id age year grades;
    
41. run;

复制代码