- 阅读权限
- 255
- 威望
- 0 级
- 论坛币
- 5096 个
- 通用积分
- 1154.4122
- 学术水平
- 136 点
- 热心指数
- 159 点
- 信用等级
- 126 点
- 经验
- 33121 点
- 帖子
- 650
- 精华
- 0
- 在线时间
- 1621 小时
- 注册时间
- 2012-9-12
- 最后登录
- 2025-2-19
|
11楼
孤单的我们
发表于 2020-6-12 15:28:07
|
- data a;
- input study_ID $ A01ab A02ab A03ab A04ab B01ab B02ab;
- cards;
- 1 1 0 0 0 0 0
- 1 0 0 1 0 0 0
- 1 0 0 0 0 1 0
- 2 1 0 0 0 0 0
- 2 0 1 0 0 0 0
- ;
- run;
- proc sort data=a;
- by study_id;
- run;
- data b;
- set a;
- by study_id;
- array var A01ab A02ab A03ab A04ab B01ab B02ab;
- array _t{6};
- retain _t1-_t6;
- do i=1 to 6;
- if first.study_id then _t[i]=0;
- if var[i]=1 then _t[i]=1;
- if last.study_id then do;
- var[i]=_t[i];
- end;
- end;
- if last.study_id;
- drop _t: i;
- run;
复制代码
|
|