- data a;
- input code date:yymmdd8.;
- format date yymmdd10.;
- datalines;
- 1 20010101
- 1 20010103
- 1 20010105
- 1 20010506
- 2 20030201
- 2 20030206
- 2 20030406
- ;
- run;
- data b;
- input code date:yymmdd8. ret;
- id+1;
- format date yymmdd10.;
- datalines;
- 1 20010101 0.001
- 1 20010102 0.011
- 1 20010103 0.021
- 1 20010104 0.031
- 1 20010105 0.041
- 1 20010106 0.051
- 1 20010107 0.061
- 1 20010108 0.071
- 1 20010109 0.081
- 1 20010110 0.091
- 1 20010505 0.101
- 1 20010506 0.111
- 1 20010507 0.121
- 1 20010508 0.131
- 1 20010509 0.141
- 1 20010510 0.151
- 1 20010511 0.161
- 1 20010512 0.171
- 1 20010513 0.181
- 2 20030201 0.191
- 2 20030202 0.201
- 2 20030203 0.211
- 2 20030204 0.221
- 2 20030205 0.231
- 2 20030206 0.241
- 2 20030207 0.251
- 2 20030405 0.261
- 2 20030407 0.271
- 2 20030408 0.281
- 2 20030409 0.291
- ;
- run;
- proc sql;
- create table c as
- select
- a.*
- ,min(b.date) as evt_date format=yymmdd10.
- ,min(b.id) as evt_id
- from a a
- inner join b b
- on a.code=b.code
- and a.date<=b.date
- group by
- a.code
- ,a.date
- ;
- quit;
- proc sql;
- create table d as
- select
- a.*
- ,exp(sum(log(b.ret))) as rrer label='rrer(10)'
- from c as a
- inner join b as b
- on a.code=b.code
- and b.id-a.evt_id between 0 and 9
- group by
- a.code
- ,a.date
- ,a.evt_date
- ,a.evt_id
- ;
- quit;


雷达卡


京公网安备 11010802022788号







