这段代码虽然没报错，但是为什么没有结果

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

大家好！
我写了下面的代码，但是为什么虽然没有报错，但是仍然没有结果。

主要是统计isbuy这个序列（这个序列是由0和1组成的）中，连续的0和连续的1这种串有多少个。要求是按照股票代码来统计的。

proc sort data=sh;by code date time;run;

data runcount;
        set sh nobs=nobs end=last;
        by  code date;
        prev=( lag(isbuy) = 0 );
        curr=( isbuy = 0 );
if first.code=1 or first.date=1 then do;runs=0; numzero=0;end;
else do;

        if curr and prev then do;numzero+1; end;
        else if curr and ^prev then
           do;
           runs+1;
           numzero+1;
           end;
        else if ^curr and prev then runs+1;
        if last then
          do;
          numone=nobs-numzero;
          n=nobs;
          output;
          end;
end;
keep code date runs numpos numneg n;
run;

数据在附件中。

谢谢！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：output First outpu Count Then 股票代码 统计

最后的numneg那里来的？

是不是这样？


data runcount;
        set sh nobs=nobs end=last;
        by  code date;
               
        prev=( lag(isbuy) = 0 );
        curr=( isbuy = 0 );
if first.code=1 then do;runs=0; numzero=0;end;
else do;

        if curr and prev then do;numzero+1; end;
        else if curr and ^prev then
           do;
           runs+1;
           numzero+1;
           end;
        else if ^curr and prev then runs+1;
        if last.code then
          do;
          numone=nobs-numzero;
          n=nobs;
          output;
          end;
end;
keep code date runs numone numzero n;
run;