sas中如何选择最后一次测量结果

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

向各位高手求教，我有这样的一份数据，a和b分别是两个变量在不同的时间得到的结果，即a1表示一个变量在6个月时的测量结果，a2表示同一变量在12个月时测量的结果......间隔时间都是6个月，现在我想要以每一个ID对应的每一个变量（a和b）最后一次的测量结果作为新的变量a和b的值。如对于ID为1的个体，a的值就是a5，b的值为b4，而ID为2的个体a的值为a4，b的值为b3......应该用什么程序呢？望大家多多帮忙！

ID	a1	a2	a3	a4	a5	a6	b1	b2	b3	b4
1	1	1	1	0	0	0	1	0	1	1
2	1	0	1	0			0	0	0
3	1		0	0	1		0		1	0
4	1	0	0	0	0		1	0	0	0
5	0	1	0	0		1		0	1

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：B2B 测量 如何 程序

再接再厉 新手报道前来学习

1. data raw;
   
2.     input ID a1 a2 a3 a4 a5 a6 b1 b2 b3 b4;
   
3. datalines;
   
4. 1 1 1 1 0 0 0 1 0 1 1
   
5. 2 1 0 1 0 . . 0 0 0 .
   
6. 3 1 . 0 0 1 . 0 . 1 0
   
7. 4 1 0 0 0 0 . 1 0 0 0
   
8. 5 0 1 0 0 . 1 . 0 1 .
   
9. ;
   
10. data out;
    
11.     set raw;
    
12.     array a{*} a:;
    
13.     array b{*} b:;
    
14.     maxa=a(length(tranwrd(cats(of a(*)),'.',' ')));
    
15.     maxb=b(length(tranwrd(cats(of b(*)),'.',' ')));
    
16. run;

复制代码

data demo_data;
length id 3 a1-a5 b1-b4 8;
input id a1-a5 b1-b4;
datalines;
1 0 0 0 0 5 0 0 0 4
2 0 0 0 4 0 0 0 3 0
3 0 0 3 0 0 0 2 0 0
4 0 2 0 0 0 1 0 0 0
5 1 0 0 0 0 0 0 0 0
;

data array;
set demo_data;
array a(*) a1 - a5 ;
array b(*) b1 - b4 ;
retain a_upper 5 b_upper 4;

if id <=a_upper then ar = a(a_upper-id+1);
if id <= b_upper then br= b(b_upper-id+1);
run;

本人智商比较低。。。没看懂。。问题。帮顶

hopewell 发表于 2012-2-24 09:53

非常赞！很强大！

hopewell 发表于 2012-2-24 09:53

我使用了上面的程序，但是遇到不是1或0的时候（如“是”和“否”，具体的数值）的时候，运行后LOG就提示Array subscript out of range at line 680 column 12.是不是需要用另外的方法呢？

这段程序只对数值型的有效，字符型需要修改一下的。

freerunning_sky 发表于 2012-2-24 19:38
这段程序只对数值型的有效，字符型需要修改一下的。

其中某个变量可能是字符型的或者有两位数字的，应该怎么改呢？

1. data raw;
   
2.     input ID a1 a2 a3 a4 a5 a6 b1 b2 b3 b4;
   
3. datalines;
   
4. 1 1 1 1 0 0 0 1 0 1 1
   
5. 2 1 0 1 0 . . 0 0 0 .
   
6. 3 1 . 0 0 1 . 0 . 1 0
   
7. 4 1 0 0 0 0 . 1 0 0 0
   
8. 5 0 1 0 0 . 1 . 0 1 .
   
9. ;
   
10. 
    
11. data out;
    
12.         set raw;
    
13.         array a(*) a:;
    
14.         array b(*) b:;
    
15. 
    
16.         do i=dim(a) to 1 by -1;
    
17.                 if a(i)~='' then do;
    
18.                         maxa=a(i);
    
19.                         leave;
    
20.                 end;
    
21.         end;
    
22. 
    
23.         do i=dim(b) to 1 by -1;
    
24.                 if b(i)~='' then do;
    
25.                         maxb=b(i);
    
26.                         leave;
    
27.                 end;
    
28.         end;
    
29.         drop i;
    
30. run;

复制代码