问一个random sampling 问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

我有一组数据, 想根据两个变量随机提取 (region & group), 每组提取3行 (如原始数据小于3行, 则全部提取)

比如, region = south   group=small 结果只有 3 行 (random sampling),
但是region = south   group=big 结果只有 2 行, 因为总共只用2行.

我现在用Excel VBA 做, 哪位指教一下, SAS怎么写? 先谢谢了

Name	region	group	feedback
A	south	small	4
B	south	small	5
C	south	small	3
D	south	small	7
E	south	big	6
F	south	big	8
G	North	big	5
H	North	big	9
I	North	big	4
J	North	big	6
K	North	small	7
L	North	small	7
M	North	small	9
N	North	small	9
O	West	big	5
P	West	big	2
Q	West	small	2
R	West	small	5

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Sampling random rand AMPL amp random Sampling

1# zespri

1. 
   
2. data A;
   
3.    input Name $ region $ group $ feedback ;
   
4.    _r =ranuni(11); *create a random number;
   
5.    _n+1; *remember original order;
   
6. datalines;
   
7. A south small 4
   
8. B south small 5
   
9. C south small 3
   
10. D south small 7
    
11. E south big 6
    
12. F south big 8
    
13. G North big 5
    
14. H North big 9
    
15. I North big 4
    
16. J North big 6
    
17. K North small 7
    
18. L North small 7
    
19. M North small 9
    
20. N North small 9
    
21. O West big 5
    
22. P West big 2
    
23. Q West small 2
    
24. R West small 5
    
25. ;
    
26. run;
    
27. /*sort by random number*/
    
28. proc sort data =A out =B; by region group _r; run;
    
29. data C;
    
30.    set B;
    
31.    by region group _r;
    
32.    if first.group then _m =0;
    
33.    _m+1;
    
34.    if _m <=3;
    
35. run;
    
36. /*restore original order: D is the randomly selected dataset*/
    
37. proc sort data =C out =D(drop =_r _m _n); by _n; run;

复制代码

给每一行设定一个随机数，然后通过对随机数排位，以在组别内打乱原来的位置（随机性）。最后选择每个组别的前三行即可。

2# jingju11

非常感谢, 我一直在想怎么用proc surveyselect去做, 你的方法更直接, 简单.