选取最大变量

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

有四个变量var1-var4，
1 2 3 4
1 2 3 5
2 8 4 5
3 4 7 6

怎样选取最大的三个变量，结果如下
n1 n2 n3
4 3 2
5 3 2
8 5 4
7 6 4
谢谢大神~

扫码加我 拉你入群

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

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

分享0 收藏3 回帖

关键词：VaR 最大的 最大的

1. data tmp;
   
2. input var1-var4;
   
3. cards;
   
4. 1 2 3 4
   
5. 1 2 3 5
   
6. 2 8 4 5
   
7. 3 4 7 6
   
8. run;
   
9. data tmp1 (keep=var1-var3);
   
10. set tmp;
    
11. array sort{4} var1-var4;
    
12. do i=1 to dim(sort)-1 by 1;
    
13.    do j=i+1 to dim(sort) by 1;
    
14.      if sort(j)>=sort(i) then do;
    
15.             tmp=sort(i);
    
16.                 sort(i)=sort(j);
    
17.                 sort(j)=tmp;
    
18.          end;
    
19.    end;
    
20. end;
    
21. run;
    
22. proc print data=tmp1;
    
23. run;

复制代码

如图

好像没放出来…
data test;
input var1-var4;
data lines;
1 2 3 4
1 2 3 5
2 8 4 5
3 4 7 6
;
run;
data test;
set test;
n1=largest (1,of var1-var4);
n2=largest(2,of var1-var4);
run;

liujunhzau524 发表于 2017-4-5 20:59

谢谢，搞定！不过楼下的largest会简单一点。

omnijust 发表于 2017-4-6 00:15
好像没放出来…
data test;
input var1-var4;

搞定了，没想到一个函数就OK。

data wanted;
set test;
call sortn(of var4-var1);
rename var1-var3=n1-n3;
keep var1-var3;
run;

wwang111 发表于 2017-4-6 18:05
data wanted;
set test;
call sortn(of var4-var1);

涨姿势了，谢谢

data test (drop=i n4);
set test;
array var(*) var1-var4;
n1=max(var1,var2,var3,var4);
n4=min(var1,var2,var3,var4);
do i=1 to 4;
  if n4<var(i)<n1 then
  do;
  n2=max(var(i),n2);
  n3=min(var(i),n3);
  end;
end;
run;

omnijust 发表于 2017-4-6 00:15
好像没放出来…
data test;
input var1-var4;

好思路!