如何添加moving window

数据集是若干个公司1984-2010的alliance合作数据，alliance以announced时间为准。如果一个alliance的activity为research & development，则eo值为1，ei值为0. 每个observation为某公司一年所有announced alliance的eo与ei总和。
希望求得的结果：假设每个alliance维持时间为五年，那么某个公司在一年中所有的alliance（包括当年announce的和往年的仍在运作中的）的eo和ei系数为多少。比如A公司97年的eo ei值，即93-97年五年的eo ei值的总和，98年的eo ei值即94-98年eo ei值的总和……依此类推。目前的问题就是年代不连续，比如id为2的公司03年向前追溯5年就只有01年的数据，那么03年的新eo值即03年与01年eo值的加合。

求高人指点应如何操作。

id	year	eo	ei
1	1997	0.5	0.5
2	1993	0	1
2	1994	1	0
2	1995	1	0
2	2001	0	1
2	2003	1	0
2	2006	1	0
3	1985	0	4
3	1988	0	1
3	1990	1.083333	5.916667
3	1991	1.25	7.75
3	1992	0.75	6.25
3	1993	2.083333	6.916667
3	1994	3.983333	8.016666
3	1995	1.583333	5.416667
3	1996	1.75	5.25
3	1997	3	9
3	1998	1	5
3	1999	1.166667	7.833333
3	2000	0	5
3	2001	1.5	0.5
3	2002	1.5	4.5
3	2003	0	7
3	2004	1.333333	1.666667
3	2005	1.333333	0.666667
3	2006	0.5	0.5
3	2007	0	2
3	2008	0	2
3	2009	1	0

结果做出来了，但是过程比较复杂，各种重复……：
针对每一个id生成1984-2010的年代对应obs，merge到原有数据中，将missing转化为0，保留_merge
计算出每年的5-year-window eo值和ei值，然后再保留 _merge=3的数据

求优化，论坛币奉送

do file:
set obs 234
gen id=_n
expand 27
bys id: gen year=1983+_n
sort id year
save "R:\r.dta", replace
use biophare /*filename*/
sort id year
merge id year using "R:\r.dta"
sort id year
recode eo ei (.=0)
by id: gen eos=eo+eo[_n-1]+eo[_n-2]+eo[_n-3]+eo[_n-4]
by id: replace eos=eo+eo[_n-1]+eo[_n-2]+eo[_n-3] if eos==.
by id: replace eos=eo+eo[_n-1]+eo[_n-2] if eos==.
by id: replace eos=eo+eo[_n-1] if eos==.
by id: replace eos=eo if eos==.
by id: gen eis=ei+ei[_n-1]+ei[_n-2]+ei[_n-3]+ei[_n-4]
by id: replace eis=ei+ei[_n-1]+ei[_n-2]+ei[_n-3] if eis==.
by id: replace eis=ei+ei[_n-1]+ei[_n-2] if eis==.
by id: replace eis=ei+ei[_n-1] if eis==.
by id: replace eis=ei if eis==.
keep if _merge==3
keep id year eos eis