HOW TO DEAL WITH THIS ONE (SURVEYSELECT)

i just tried ur way, works perfect for me. thank you so much!!



7# soporaeternus

不好意思，还有一个比较低级的问题。。。。这个if r<=%sysevalf(&rto);是如何用的？刚查了%sysevalf的用法:%SYSEVALF(expression<, conversion-type>),那这里<, conversion-type>的DEFAULT值是啥？另外，是不是如果我只要一半的DATA SET，那么&RTO就是0.5？


谢谢！！




7# soporaeternus

%sysevalf 是执行宏变量的逻辑运算
要一半就是&RTO取0.5

试了一下，按照7楼的例子，RTO=0.2，得到的新的DATA SET并不是取了20%的DATA啊。。。。

用自己的DATA SET试了一下，RTO=0.5，确实是取了一半的DATA。。。。

13# 醉_清风

%sysevalf第二选项默认应该是浮点值本身，不作任何变化

抽样部分的程序我等等改下，可以变成正好20%...

非常感谢！！



15# soporaeternus

1. /*RTO of SURVEYSELECT*/
   
2. 
   
3. %let rto=0.01;
   
4. 
   
5. 
   
6. 
   
7. /*RST*/
   
8. proc sql;
   
9.         select count(distinct Grp) into:Grp_Cnt from p_2;
   
10. quit;
    
11. %put &Grp_Cnt;
    
12. 
    
13. 
    
14. data p_3;
    
15. retain r Get_Ind 0 Smp_Sze %sysevalf(&Grp_Cnt*&Rto) Grp_Cnt_Lft &Grp_Cnt ;
    
16. set p_2;
    
17. by Grp;
    
18. 
    
19. if first.Grp then do;
    
20.         Get_Ind=0;
    
21.         r=ranuni(999);
    
22.         if r<=Smp_Sze/Grp_Cnt_Lft then do;
    
23.                 Get_Ind=1;
    
24.                 Smp_Sze=Smp_Sze-1;
    
25.         end;
    
26.         Grp_Cnt_Lft=Grp_Cnt_Lft-1;
    
27. end;
    
28. if Get_Ind=1;
    
29. keep ID;
    
30. run;

复制代码

貌似可以
看看......

学习了 很强大  发现RETAIN 真的很有用

我也想知道诶~~~~~~

17# soporaeternus

THANK YOU SO MUCH THOUGH I CANT UNDERSTAND 100%.....BUT THAT'S MY PROBLEM....LOL