跟crackman读SAS程序（持续跟新）

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

原程序在
http://www.pinggu.org/bbs/thread-872236-1-1.html
看看程序
data raw;
        input code 1 date 3-4 int 6;
datalines;
1 1  0
1    1
1    2
1    3
1 3  0
1    1
1    2
2 4  0
2    1
2    2
2    3
2 45 0
2    1
2    2
;
data out(drop=temp);
        retain temp;
        set raw;
        if not missing(date) then temp=date;
        else date=temp;
run;

其实在这里用了一个中间变量TEMP，如果MISSING(DATE)为0的话，也就是DATE不是缺失值的时候，那么就把DATE的值临时存在TEMP里面，如果DATE为缺失值了，就把TEMP里面的值赋值给DATE一直到下一个不是缺失值的DATE时候，然后重复讲此时的DATE赋值给中间变量TEMP。巧妙之处就是利用一个TEMP中间变量。

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：crackman Ackman CRACK sas程序 CRA 程序 SAS crackman

嘻嘻哈哈，看了，

Thanks for the comments. If you don't point it out, I may miss the 巧妙之处!

Very good! Thank you very much!
Keep it on! Please!

模式很好，顶一个

data wkn;
input date $  return1 return2 return3 return4;
cards;

0101     12.3   14.5   2.7    9.3
0102     -1.6   4.8    20.3    3.4
0103     6.2    0.8    7.5     10.6
;
run;
data wkn1;
set wkn;
array a(*) return1-return4;
do i=dim(a)-1 to 1 by -1;
do j=1 to i;
if a(j)>a(j+1) then do;
kk=a(j+1);
a(j+1)=a(j);
a(j)=kk;
end;
end;end;
drop kk i j;
run;

这段程序是WKN写
很不错
这段程序很有其他程序编写的风格
就是采用循环遍历，交换赋值比较大小。

受教了，真是十分的精彩啊

版主太牛了！向你学习！

版主辛苦了！

冒泡排序！