SAS的初级入门（三）

1. SAS 中的数组

其中array 后直接是数组名，中括号内是数组的长度，若中括号内是两个数字，则表示m行n列，如图中所示，则是5行3列

然后直接跟着数组表示的变量，若没有，则表示为 数组名+序号

小括号内表示数组元素的值

例子：

data;
 array x{3} a b c (1 2 3); 
 file print;
 put x{1}= x{2}= x{3}=;
 run;

data;
  array x{2,3} aa bb cc dd ee ff(1 2 3 4 5 6);
  file print;
  put x{2,1}=;
  run;

data;
   array x{2} $ aaa bbb('data' 'process');
   file print;
   put x{2}=;
   run;

data;
   array x{6:9,0:9} x60-x99;
   file print;
   put x{7,0};
   run;
 

2. drop 和 keep 的使用

drop 是 data 步中删除变量的语句

‘keep 是 data 步中保留变量的语句

但是 drop 和 keep 是不能同时使用的

3. 测试

ex1:

program

data ex1;
    input id1-id6;
    array x(*) id1-id6;
    do i=2 to dim(x);
        if x(i)-x(i-1)<=7 then do;
            x(i) = .;
        end;
    end;
    drop i;
    cards;
    1 2 7 23 100 1000
    2 3 33 54 56 1000
    3 . 4 6 44 100
    ;
run;

proc print data=ex1;
run;

ex2

program

data a;
input d1-d3;
cards;
1 2 7
2 3 .
3 . 4
;
run;
proc means data=a;
output out=new mean=m1 m2 m3;
run;
proc transpose data=new out=new1 prefix=m;
var m1 m2 m3;
run;
proc transpose data=a out=a1 prefix=d;
var d1-d3;
run;
data b;
merge a1 new1;
array arr{*} d1 d2 d3 m1;
do id=1 to dim(arr);
if arr{id}=. then arr{id}=arr{dim(arr)};
end;
proc transpose data=b out=b1 prefix=d;
var d1-d3;
data result;
set b1;
drop _name_;
run;
proc print data=result;
run;