我的做法,參考一下囉~~~
資料:
data survial;input date date10. response;
cards;
09AUG07 1
23AUG07 1
06SEP07 2
20SEP07 2
05OCT07 1
16OCT07 1
30OCT07 2
29NOV07 1
01JAN08 2
10JAN08 2
19JAN08 2
30JAN08 2
10JUN08 1
;
run;
語法:
proc sort data=survial out=a;by date response;run;
data a1;set a;by date response;
q1=lag(response);
if response=2 then do;
if response^=q1 then do;
q2=_n_;date1=date;end;retain q2;retain date1;
end;
else do;q2=' ';date1=' ';end;
bet=date-date1+1;
run;
proc sort data=a1 out=a2;by q2 descending bet;run;
data a3;set a2;by q2 descending bet;
if first.q2 then do;bb=bet;retain bb;end;run;
proc sort;by date;run;
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.167.139.179