求助:计算移动平均数的问题?

        如有下列数据，怎样按beibie(类别)计算3期移动平均数？
data a;
input leibie $ y @@;
cards;
a 2 a 3 a 5 a 7 a 1 a 4 a 8
b 6 b 4 b 8 b 7 b 2 b 9
c 7 c 3 c 4 c 2 c 6 c 1
;
run;
data b;
set a;
by leibie;
if first.leibie then  y_sum = 0;
y_sum+y;
run;

如果用这句 y3=(y_sum-lag3(y_sum))/3;  那么只有a类的3期移动平均数是对的。
后面类别的头3个都是错的，应该是空值。
由于数据集中的类别比较多（几千个），不好分开。

请教该如何计算？ 谢谢！！