求代码（急）

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

现在有两个变量。ls rst，数据集如下：
ls   rst
1    1
.     1
.     0
.     1
.     1
想达到这样的效果，从第二行开始，如果rst=0，则ls=0，如果rst=1，则ls=上一条ls观测集+1，即：
ls   rst
1    1
2    1
0    0
1    1
2    1

想不到好思路。。。

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：数据集

如果rst只是0/1那么：

ls=lag(rst)+1;
if rst=0 then ls=0;

如果rst 还有其他值，那么第二句还得根据rst如果是其他值时ls的取值方法来改。

ls=(lag(rst)+1)*rst;

teqel 发表于 2014-11-28 12:03
ls=(lag(rst)+1)*rst;

因为有IF和BY语句，LAG不好。

data yourdata;
        set yourdata;
        retain _ls;
        if rst=1 then _ls+1;
        else _ls=0;
        ls=_ls;
        drop _ls;
run;

jl60156 发表于 2014-11-28 13:17
data yourdata;
        set yourdata;
        retain _ls;

不是这个意思，第二行的ls要累加第一行ls的值，比如
ls rst
2 1
.  1
那么结果应该是
ls rst
2 1
3 1

范小田田 发表于 2014-11-28 16:14
不是这个意思，第二行的ls要累加第一行ls的值，比如
ls rst
2 1

1. data a;
   
2. input ls rst;
   
3. cards;
   
4. 1    1
   
5. .     1
   
6. .     0
   
7. .     1
   
8. .     1
   
9. ;
   
10. 
    
11. data b;
    
12. retain ls_1;
    
13. set a;
    
14. if _n_=1 then ls_new=ls;
    
15. else ls_new=(ls_1+1)*(rst<>0);
    
16. ls_1=ls_new;
    
17. drop ls_1 ls;
    
18. run;

复制代码

1. data a;
   
2. input ls rst;
   
3. cards;
   
4. 1 1
   
5. . 1
   
6. . 0
   
7. . 1
   
8. . 1
   
9. ;
   
10. 
    
11. data b;
    
12.   set a(drop = ls);
    
13.   by rst notsorted;
    
14.   retain ls;
    
15. 
    
16.   if first.rst then ls = rst;
    
17.     else ls + 1;
    
18. run;

复制代码

范小田田 发表于 2014-11-28 16:14
不是这个意思，第二行的ls要累加第一行ls的值，比如
ls rst
2 1

如果第一行不总是1,就加条件

data yourdata;
        set yourdata;
        retain _ls;
                if _n_=1 then _ls=ls;
                else if rst=1 then _ls+1;
                else _ls=0;
        ls=_ls;
        drop _ls;
run;

shenliang_111 发表于 2014-11-28 18:04

data yourdata;
     input ls ret;
         cards;
1 1
. 1
. 0
. 1
. 1
;
run;
data my (drop=_ls);
set yourdata;
retain _ls;
if _n_=1 then _ls=ls;
if ret=0 then _ls=0;
else _ls=_ls+1;
ls=_ls;
run;

我太水了 这个就是差那么一点，哎。。。