array问题求解

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

我碰到一个问题，

data a;
input col1 $ col2 $ col3 $;
cards;
a b c
c d e
a b f
a b f
;

虽然只有三列，但是a对应durg1， b 对应drug2， c 对应drug3，以此类推，最后想要知道里面共有几种不同的drug，各是什么
也就是下面数据样式

col1	col2	col3	d1	d2	d3	d4	d5	d6	d7
a	b	c	1	1	1	0	0	0	0
a	b	f	1	1	0	0	0	1	0
b	f	g	0	1	0	0	0	1	1
c	d	e	0	0	1	1	1	0	0

我觉得是用array来做，但是

data a;
input col1 $ col2 $ col3 $;
cards;
a b c
c d e
a b f
a b f
;

data b;
set a;
array temp col1-col3;
DO I = 1 TO 3;
d1=ifn(temp[I]='a',1,0);
d2=ifn(temp[I]='b',1,0);
d3=ifn(temp[I]='c',1,0);
d4=ifn(temp[I]='d',1,0);
d5=ifn(temp[I]='e',1,0);
d6=ifn(temp[I]='f',1,0);
d7=ifn(temp[I]='g',1,0);
end;
run;



这样却只有记录下最后一步col3的情况，不知道应该如何改动啊，多谢多谢

扫码加我 拉你入群

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

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

关键词：array 问题求解 ARR Ray Input

1. data a;
   
2. input col1$ col2$  col3 $;
   
3. cards;
   
4. a b c
   
5. c d e
   
6. a b f
   
7. a d g
   
8. ;
   
9. 
   
10. data b(drop=i);
    
11. set a;
    
12. array temp col1-col3;
    
13. DO I = 1 TO 3;
    
14. select(temp[I]);
    
15.         when ('a') d1=1;
    
16.         when ('b') d2=1;
    
17.         when ('c') d3=1;
    
18.         when ('d') d4=1;
    
19.         when ('e') d5=1;
    
20.         when ('f') d6=1;
    
21.         when ('g') d7=1;
    
22. end;
    
23. end;
    
24. run;

复制代码

多谢多谢，

如果推广到更普遍的情况，有可能col里面的值从 a 到 z,那也就要从d1手动写到d26，或者有可能会变成aa （27）， ab （28），手写的话比较麻烦。

比如

data a;
input col1 $ col2 $ col3 $;
cards;
a b z
c d w
a b x
a b y
;

data a;
input col1 $ col2 $ col3 $;
cards;
a b c
c d e
a b f
a e f
;
run;
data b(drop=i j m);
set a;
array abc{*} d1-d7;
array nn{*} col1-col3;
array mm{7} $ _temporary_ ('a','b','c','d','e','f','g');
do j=1 to 3;
do i=1 to 7;
if nn[j] = mm[i] then abc[i]=1 ;
end;

end;

do m=1 to 7;
if missing(abc[m]) = 1 then abc[m]=0;
end;
run;

teqel 发表于 2015-8-29 04:39

学习了