烦请大神们写段统计程序，计算每周通过率

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

序号     通过      时间
1        是         2016/11/7
1        否         2016/11/9
1        是          2016/11/29
2        是           2016/11/7
2        否          2016/11/8
3        否          2016/11/10
3         否          2016/11/7
4         是          2016/11/6

如何通过写SAS程序，得到“每周的通过率”

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：统计程序 通过率 sas程序 程序 统计 通过率

1. data test;
   
2. input
   
3.         id : 8.
   
4.         pass : $ 8.
   
5.         dt : yymmdd10.
   
6. ;
   
7. format dt yymmdd10.;
   
8. cards;
   
9. 1 是 2016/11/7
   
10. 1 否 2016/11/9
    
11. 1 是 2016/11/29
    
12. 2 是 2016/11/7
    
13. 2 否 2016/11/8
    
14. 3 否 2016/11/10
    
15. 3 否 2016/11/7
    
16. 4 是 2016/11/6
    
17. ;
    
18. run;
    
19. 
    
20. proc sql;
    
21. select distinct week(dt) as wk, sum(pass = '是')/count(1) as rt format percent8.2
    
22. from test
    
23. group by week(dt)
    
24. ;
    
25. quit;

复制代码

1. data a;
   
2. length date $10;
   
3. input no pass $     date $;
   
4. cards;
   
5. 1        是         2016/11/7
   
6. 1        否         2016/11/9
   
7. 1        是         2016/11/29
   
8. 2        是         2016/11/7
   
9. 2        否         2016/11/8
   
10. 3        否         2016/11/10
    
11. 3        否         2016/11/7
    
12. 4        是         2016/11/6
    
13. ;
    
14. run;
    
15. 
    
16. data b;
    
17.         set a;
    
18.         week=week(input(date,yymmdd10.));
    
19.         seq=0;
    
20.         output;
    
21.         if pass="是" then do;
    
22.     seq=1;
    
23.         output;
    
24.         end;
    
25. run;
    
26. 
    
27. proc sql;
    
28.         create table tot as select count(no) as n,week,seq from b group by week,seq;
    
29.         quit;
    
30. 
    
31. data final;
    
32.         merge tot(where=(seq=0) rename=(n=tot))  tot(where=(seq=1)) ;
    
33.         by week;
    
34.         rate=put(n/tot*100,5.1)||'%';
    
35. run;

复制代码

prince315 发表于 2016-11-29 11:15

能否同时告知下，如何将 文本格式的“2016/11/11”转换成日期格式的“20161111”吗？ 小白如我实在是不会啊

compress(date,'/')

wang1839 发表于 2016-11-29 14:33
compress(date,'/')

能帮我写进代码吗？ 不知道怎么放置啊

wang1839 发表于 2016-11-29 14:33
compress(date,'/')

能帮我写进代码吗？ 不知道怎么放置啊