数组元素update

我有一组数据a；含有 value 和 date两组数据

1. data a;
   
2.    input value date;
   
3.    datalines;
   
4. 2 1
   
5. 3 1
   
6. 4 1
   
7. 10 1
   
8. 3 2
   
9. 5 2
   
10. 6 2
    
11. 8 2
    
12. 11 3
    
13. 13 3
    
14. 8 3
    
15. 7 3
    
16. ;

复制代码

我希望 如果有value>=10， 如果date相同， 所有value都变为空值"."; 否则value 不变
这样 a的结果应该是
. 1
. 1
. 1
. 1
3 2
5 2
6 2
8 2
. 3
. 3
. 3
. 3
想请教该怎么实现

Use double set statements will do it. It is much simpler than you thought.

    data a;
       input value date;
       datalines;
    2 1
    3 1
    4 1
    10 1
    3 2
    5 2
    6 2
    8 2
    11 3
    13 3
    8 3
    7 3
    ;

data t2;
  retain maxv .;
  do until(last.date);
    set a;
        by date;
        if first.date then maxv=.;
        maxv=max(maxv,value);
  end;
  do until(last.date);
  set a;
  by date;
    if maxv >=10 then value=.;
        else;
        output;
  end;
  run;

  proc print;run;

bobguy 发表于 2012-8-23 03:16
Use double set statements will do it. It is much simpler than you thought.

    data a;

非常有效，运行速度非常快，谢谢