楼主: 18520160740
741 0

[实际应用] SAS Progarmmer 在CDISC编程中连接主domain和supp domain的宏函数 [推广有奖]

  • 0关注
  • 0粉丝

学前班

50%

还不是VIP/贵宾

-

威望
0
论坛币
10 个
通用积分
0
学术水平
0 点
热心指数
0 点
信用等级
0 点
经验
30 点
帖子
1
精华
0
在线时间
1 小时
注册时间
2024-8-1
最后登录
2024-8-14

楼主
18520160740 发表于 2024-8-14 14:46:10 |AI写论文

+2 论坛币
k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群
赵安豆老师微信:zhaoandou666

经管之家联合CDA

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

感谢您参与论坛问题回答

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

+2 论坛币
话不多说,直接上代码:

*for merge domain and supp;
%macro merge_supp(sdtm=,supp=y);  
*transpose supp;  
data supp&sdtm.;set sdtm.supp&sdtm.;&sdtm.seq=input(idvarval,best.);run;  
proc sort data=supp&sdtm.;by usubjid &sdtm.seq;quit;  
proc transpose data=supp&sdtm. out=supp&sdtm.(drop=_:);  
by usubjid &sdtm.seq;  
id qnam;  
idlabel qlabel;  
var qval;  
quit;  
*merge supp;  
data &sdtm.;set sdtm.&sdtm;%if %upcase(&sdtm.)=DM %then %do; &sdtm.seq=.;%end;run;  
proc sort data=sdtm.&sdtm out=&sdtm;by usubjid &sdtm.seq;run;
data &sdtm.;  
merge &sdtm. supp&sdtm.(where=(usubjid ne ''));  
by usubjid &sdtm.seq;  
run;  
%mend merge_supp;  

%merge_supp(sdtm=ae);



二维码

扫码加我 拉你入群

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

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

关键词:Domain CDISC Main Prog Supp

您需要登录后才可以回帖 登录 | 我要注册

本版微信群
加好友,备注cda
拉您进交流群
GMT+8, 2026-1-4 05:06