对每个不良事件等级进行填补的方法

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

1. data t2_;
   
2.         merge t2c t2n;
   
3.         by ord AEBODSYS AEDECOD AETOXGR;
   
4. proc sort;
   
5.         *by AETOXGR;
   
6.         by AEBODSYS;
   
7. run;

复制代码

这段代码是没有填补之前，将例数例次进行了一个合并，然后得到的一个所有不良事件按严重程度分类的数据集t2_

1. *根据t2_来获取每个分类，并为每个分类填补上等级;
   
2. data PT;
   
3.         set t2_;
   
4.         keep AEBODSYS AEDECOD;
   
5. proc sort nodup;
   
6.         by AEBODSYS AEDECOD;
   
7. run;
   
8. data PT;
   
9.         set PT;
   
10.         by AEBODSYS AEDECOD;
    
11.         array level[5] $5. level1-level5;
    
12.         do i=1 to 5;
    
13.                 level[i] = put(i,level.);
    
14.                 AETOXGR = level[i];
    
15.                 *if AEDECOD = "" then delete;
    
16.                 output;
    
17.         end;
    
18.         keep AEBODSYS AEDECOD AETOXGR;
    
19. proc sort;
    
20.         by AEBODSYS AEDECOD AETOXGR;
    
21. run;

复制代码

使用数组，每个等级用数组保存下来，这个level格式为提前设置好，如下

1. proc format;
   
2.         value level
   
3.         1 = "1级"
   
4.         2 = "2级"
   
5.         3 = "3级"
   
6.         4 = "4级"
   
7.         5 = "5级"
   
8. ;       
   
9. run;

复制代码

最后进行一个合并

1. data t2;
   
2.         merge PT t2_;
   
3.         by AEBODSYS AEDECOD AETOXGR;
   
4. run;

复制代码

结果如下

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：output format delete Level Merge