求一个数组的写法，如何把数组的值赋给变量

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

已知数据集A,有变量a
a  
1
4
3
4
5
6
...
n
生成数据集AB，有变量a,b
a  b
1 4
4 3
3 4
4 5
5 6
6
...
n n-1

变量b由变量a每行数据上移一行生成，与lag正好相反，是否可以通过数组生成？

扫码加我 拉你入群

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

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

分享0 收藏2 回帖

关键词：数据集 lag 已知数 如何

1. data have;
   
2.         input a;
   
3. cards;
   
4. 1
   
5. 2
   
6. 3
   
7. 4
   
8. 5
   
9. ;

复制代码

方法一：

1. ************************** By Yuewei Liu *****************************;
   
2. %macro LEADFUNC(libname=,memname=,oldvariable=,newvariable=);
   
3. data have;
   
4.         set &libname..&memname. nobs=nobs;
   
5.         _pt_=_n_+1;
   
6.         if _n_<nobs then do;
   
7.                 set have(rename=(&oldvariable.=&newvariable.)) point=_pt_;
   
8.                 output;
   
9.         end;
   
10.         else do;
    
11.                 call missing (&newvariable.);
    
12.                 output;
    
13.         end;
    
14. run;
    
15. %mend;
    
16. **********************************************************************;

复制代码

方法二：

1. ************************** By Yuewei Liu *****************************;
   
2. %macro LEADFUNC(libname=,memname=,oldvariable=,newvariable=);
   
3. proc expand data=&libname..&memname. out=&libname..&memname.(drop=time) method=none;
   
4.         convert &oldvariable.=&newvariable. / transform = (lead 1);
   
5. run;
   
6. %mend;
   
7. **********************************************************************;

复制代码

谢谢！

方法三：感觉有些小蹩脚。

1. ************************** By Yuewei Liu *****************************;
   
2. %macro LEADFUNC(libname=,memname=,oldvariable=,newvariable=);
   
3. data _tmp_;
   
4.         %let dsid=%sysfunc(open(&libname..&memname.,i));
   
5.         %let nobs=%sysfunc(attrn(&dsid..,nobs));
   
6.         %put &nobs;
   
7.         %if &nobs.>1 %then %do i=1 %to &nobs.;
   
8.                 %let rc=%sysfunc(fetchobs(&dsid.,%eval(&i.+1)));
   
9.                 %if %sysfunc(vartype(&dsid.,%sysfunc(varnum(&dsid.,&oldvariable.))))=N %then %do;
   
10.                         &newvariable.=%sysfunc(getvarn(&dsid.,%sysfunc(varnum(&dsid.,&oldvariable.))));
    
11.                 %end;
    
12.                 %else %do;
    
13.                         %let _varctmp_=%sysfunc(getvarc(&dsid.,%sysfunc(varnum(&dsid.,&oldvariable.))));
    
14.                         &newvariable.="&_varctmp_.";
    
15.                 %end;
    
16.                 output;
    
17.         %end;
    
18.         %let dsid=%sysfunc(close(&dsid.));
    
19. run;
    
20. data &libname..&memname.;
    
21.         merge &libname..&memname. _tmp_;
    
22. run;
    
23. proc delete data=_tmp_;
    
24. run;
    
25. %mend;
    
26. **********************************************************************;

复制代码

a是数值型和字符型都可以。

方法四：暴力方式

1. ************************** By Yuewei Liu *****************************;
   
2. %macro LEADFUNC(libname=,memname=,oldvariable=,newvariable=);
   
3. data &libname..&memname.;
   
4.         set &libname..&memname.;
   
5.         _num_=_n_;
   
6. run;
   
7. proc sort data=&libname..&memname.;
   
8.         by descending _num_;
   
9. run;
   
10. data &libname..&memname.;
    
11.         set &libname..&memname.;
    
12.         &newvariable.=lag(&oldvariable.);
    
13. run;
    
14. proc sort data=&libname..&memname. out=&libname..&memname.(drop=_num_);
    
15.         by _num_;
    
16. run;
    
17. %mend;
    
18. **********************************************************************;

复制代码

b=lag(a)
delete the first row
original a is your final b
original b is your final a

data a;
input a @@;
cards;
1 4 3 4 5 6
;
run;
data a;
set a;
n+1;
run;
proc sort data=a;
by  descending n;
run;
data a;
set a;
b=lag(a);
run;
proc sort data=a out=ab;
by n;
run;
data ab;
set ab;
drop n;
run;

proc print;
run;

真的是小巫见大巫了；得好好学习了哦