data crackman;
input customerid purchasetime $@;
year=input(substr(purchasetime,1,4),F4.);
month=input(substr(purchasetime,6,7),F2.);
day=input(substr(purchasetime,8,9),F2.) ;
date=mdy(month,day,year);
drop year month day;
cards;
1 2009-2-3
1 2009-2-5
2 2010-1-2
2 2010-3-4
3 2010-9-6
3 2010-9-9
;
run;
proc sql;
create table crackman1 as
select mean(date) as datemean from crackman group by customerid;
quit;
data a;
set crackman1;
b=lag(datemean);
result=datemean-b;
drop b;
run;
data test1;
input n dt $;
date=input(dt,yymmdd10.);
cards;
1 2009-2-3
1 2009-2-5
2 2010-1-2
2 2010-3-4
run;
proc means data=test1 mean;
by n;
var date;
output out=test2 mean=meandate;
run;
data diff(keep=n difdate);
set test2;
difdate=meandate-lag(meandate);
if n =1 then delete;
run;