前缀相同的前N个变量求最大值，求助求助

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

代码如下：

1. data b;
   
2.   input x_1 x_2 x_3 x_4 x_5 n;
   
3.   cards;
   
4. 2 4 . 7 9 3
   
5. . 4 6 1 6 4
   
6. 9 3 5 30 1 5
   
7. 9 5 0 22 4 2
   
8. ;
   
9. run;

复制代码

需求：前缀都是x的5个变量，求每条记录的前n个相同前缀变量的最大值，例如当n=3时,则求x_1，x_2， x_3中的最大值给变量Max，当n=4时,则求x_1，x_2， x_3，x_4中的最大值给变量Max。
哪位大师可以指点一下，有点急，非常感谢！

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：求助求助 最大值 cards Input Data 最大值 记录

1. data b;
   
2.   input x_1 x_2 x_3 x_4 x_5 n;
   
3.   cards;
   
4. 2 4 . 7 9 3
   
5. . 4 6 1 6 4
   
6. 9 3 5 30 1 5
   
7. 9 5 0 22 4 2
   
8. ;
   
9. run;
   
10. 
    
11. data c;
    
12.     set b;
    
13.      array x{5} x_1 - x_5;
    
14.      max = 0;
    
15.      do i = 1 to n;
    
16.       if x[i]>max then max= x[i];
    
17.     end;
    
18.     drop i;
    
19. run;

复制代码

data b;
  input x_1 x_2 x_3 x_4 x_5 n;
  datalines;
2 4 . 7 9 3
. 4 6 1 6 4
9 3 5 30 1 5
9 5 0 22 4 2
;
run;
proc sql noprint;
select max(n) into :maxn
from b;
quit;
%macro test;
data c;
set b;
if n = 1 then maxvar = x_1;
%do i = 2 %to &maxn;
    if n = &i then maxvar=max(of x_1-x_&i);
   %end;   
run;
%mend;
options mprint;
%test;
proc print;run;

搞定了，最后那个result的表就是你要的结果，自己根据你的数据变量数来调吧

proc iml;
use b;
read all var _num_ into b;
create max_b var{max};
do i=1 to nrow(b);
n=b[i,6];
row=b[i,1:n];
max=max(row);
edit max_b;
append from max;
end;
quit;
data result;
merge b max_b;
run;

yongyitian 发表于 2013-7-30 21:47

哇塞，你这个方法好巧妙啊！鼓掌！

1. 学习了

复制代码

yongyitian 发表于 2013-7-30 21:47

太好了，数组这么好用，真得好好学习一下，非常感谢~~

你的太阳 发表于 2013-7-30 21:50
data b;
  input x_1 x_2 x_3 x_4 x_5 n;
  datalines;

学习了，也是一种思路，谢谢~~没用数组做出来很佩服你，我就是没有想出来这个办法，哎 ~~

6皮皮9 发表于 2013-7-30 21:58
搞定了，最后那个result的表就是你要的结果，自己根据你的数据变量数来调吧

proc iml;

班啊，咱俩的SAS水平不是一个等级的啊，连IML都用得这么熟练了，我得好好学一下你的代码了，很高深啊~谢谢~~但有个问题，do在我这里为什么是红字体，执行没问题。

yongyitian 发表于 2013-7-30 21:47

您的程序里可以把max=0 写成max=. ， 如果x_1 - x_5都是空值的话，max会返回0值，个人意见呵呵。