一个问题

shiyiming

[quote:rf025c9y]相当的不简洁  
9.2下有效
鸣谢ahuige的赞助[/quote:rf025c9y]

突然看到你前面的回帖中还有致谢。明确的说明“代码不简明”是我赞助的。我很冤枉啊。我昨晚在空地上看了一小时的飞碟。几时神游到你脑子里来影响你写代码啊。上次也有个家伙说在另外一个人的代码里看到我的影子。我也一点没看出那个风格与我何干。。。。。。

<!-- s:shock: --><img src="{SMILIES_PATH}/icon_eek.gif" alt=":shock:" title="Shocked" /><!-- s:shock: -->

shiyiming

打条字幕鸣谢一下您老,您老也挑眼? 那我多刻一个牌牌好了,把您老和猪老供一起
如果那不是风筝,就是外星人来接你回家了 <!-- s:lol: --><img src="{SMILIES_PATH}/icon_lol.gif" alt=":lol:" title="Laughing" /><!-- s:lol: -->

shiyiming

proc sort data=had;
by id day;
run;

data had2(drop=day status flag status1);
set had;
retain flag;
by id day;
time2event=lag(day);
status1=lag(status);
if first.id then do;
   status1=.;
   flag=0;
end;
if status1=1 and status=1 then do;
   censored=0;
   output;
   flag=1;
end;
if last.id and flag=0 then do;
   time2event=day;
   censored=1;
   output;
end;
run;