how many ways can we shift non-missing values left in an observation

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

there are two ways:
data test;
  infile datalines truncover dsd dlm=' ';
  input t1 $ t2 $ t3 $ t4 $ t5 $;
datalines;
test1 test2 test3  . test5
. test2 test3 test4 test5
test1 . test3 . test5
test1 . .  test4 .
test1 test2 test3 test4 test5
;
run;

/* 1  Use ARRAY processing to assign non-missing values into new variables */
data shift1 (drop=t1-t5 j i);
  set test;
  array in t1-t5;
  array out $ o1-o5;
  j=1;
  do i=1 to 5;
    if in(i) ne ' ' then do;
      out(j)=in(i);
      j+1;
    end;
  end;
run;
proc print;
run;

/*2  using catx*/
%macro shift2;
proc contents data = test out = test1(keep = name) noprint;
run;
proc sql noprint;
select count(name) into: n from test1;
quit;
%let n=%eval(&n.);
data shift5;
set test;
t=catx('#',of t1-t&n);
%do i=1 %to &n;
t&i.=scan(t,&i.,'#');
%end;
drop t;
run;
%mend shift2;
%shift2;

只想到这两种方法，除了用array 和 catx，还有其他的方法吗？

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：observation observat missing values shift values

其实多少无所谓，因为你已经枚举了最好的两种。京剧

我还想找出尽可能多的方法来share，但是知识有限，求赐教！