求助，如何计算股票连续上涨的天数？

shiyiming

假设数据集 m中有一变量为股票每天的涨跌幅r，
用sas如何计算该股票连续上涨的天数？
请高手不吝赐教。

shiyiming

data aa;
input p r;
retain n 0;
if r>0 then if n>=0 then  n=n+1;
            else n=1;
if r=0 then  n=0;
if r<0 then if n<=0 then n=n-1;
                        else n=-1;
cards;
100 .
101 1
102 1
99  -3
103 4
104 1
105 1
106 1
107 1
99 -8
98 -1
97 -1
100 3
;
run;