SAS 一道题目

最新推荐文章于 2023-05-10 16:51:10 发布

sola4u

最新推荐文章于 2023-05-10 16:51:10 发布

阅读量1k

点赞数

CC 4.0 BY-SA版权

分类专栏： SAS 文章标签： sas

本文链接：https://blog.youkuaiyun.com/aositawei/article/details/52873872

SAS 专栏收录该内容

15 篇文章

订阅专栏

博客内容探讨了SAS编程，展示了具体的SAS代码，并提到了村花大神的SQL代码，提供了相关领域的实践示例。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

SAS code

data a;
infile datalines dsd;
input id $ var1  var2   var3$  ;
datalines;
001,1,,
001,,2,
001,,,a 
002,4,,
002,,5,
002,,,6
;
run;


%macro test(num);
    data work.b&num;
        set work.a(keep= id var&num);
        if vtype(var&num) = "N" then do;
            if var&num ne . then output;
        end;
        else do;
            if var&num ne '' then output;
        end;

    run;
%mend;

%test(1)
%test(2)
%test(3)


data work.c;
    merge work.b1 work.b2 work.b3;
        by id;
run;

proc print ;
run;

id	var1	var2	var3
001	1
001		2
001			a
002	4
002		5
002			b

id	var1	var2	var3
001	1	2	a
002	4	5	b

村花大神SQL代码：

data a;
infile datalines dsd;
input id $ var1  var2   var3$  ;
datalines;
001,1,,
001,,2,
001,,,a 
002,4,,
002,,5,
002,,,6
;
run;


proc sql noprint;
  select count(*) into: numn from dictionary.columns
  where libname='WORK' AND MEMNAME='A' AND TYPE='num';
  select name into: clist sepearted by ',' from dictionary.columns
  where libname='WORK' AND MEMNAME='A' AND TYPE='char' and name ne 'id';
quit;

data b;
  format k $20.;
  set a;
  array va _numeric_;
  array vara $ new1-new%left(&numn.);
  do i=1 to &numn.;
     vara[i]=put(va[i],8.0);
  end;
  k=coalescec(of vara{*},&clist.);
run;

proc transpose data=b out=c(drop=_name_);
  by id;
  var k;
run;

proc print;
run;