跪求SAS高手程序解读：利用do 语句求移动平均的程序解读（《sas编程与数据挖掘案例》

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

libname ch7 'D:\data_model\SAS data\Book_data\chapt7';
proc sort data=ch7.smooth;by cid month;run;

data smooth;
        set ch7.smooth;
        by cid;
        array lags(12);
        lags(1)=lag(balance);
        do i=2 to 12;
    lags(i)=lag(lags(i-1));
    end;
        do j=12 to 2 by -1;
        if j gt cns then lags(j)=.;
                put j=;
        end;
        if first.cid then do
       cns=0;
       do i=1 to 12;lags(i)=.;
       end;
    end;
        cns+1;
mean6=mean(of lags1-lags6);
mean12=mean(of lags1 - lags12);
/*drop i j;*/
run;

扫码加我 拉你入群

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

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

分享0 收藏2 回帖

关键词：数据挖掘案例 SAS编程 数据挖掘 移动平均 libname

看了好多遍，还是没有研究透，郁闷中。希望哪位大侠给解读下，小弟不胜感激。

libname ch7 'D:\data_model\SAS data\Book_data\chapt7';
proc sort data=ch7.smooth;by cid month;run;

data smooth;  (建立临时数据集)
        set ch7.smooth; (取ch7.smooth的数据)
        by cid; (按cid排序)
        array lags(12); (定义数组变量)
        lags(1)=lag(balance); (对数组的第一个变量赋值)
        do i=2 to 12; (do循环)
    lags(i)=lag(lags(i-1)); (给所有数组变量赋值)
    end;
        do j=12 to 2 by -1; (从大到小循环)
        if j gt cns then lags(j)=.; (条件语句，如果J大于cns  第J个数组变量赋值为缺失)(例如第3个cid=3，所有lags(4)到lags(12)都赋值为空)
                put j=; (j值清空)
        end;
        if first.cid then do
             cns=0;  
              do i=1 to 12;lags(i)=.;  所有第一次出现的cid值，cns赋值为0 lags数组变量赋值为空
              end;
         end;
        cns+1;
mean6=mean(of lags1-lags6);
mean12=mean(of lags1 - lags12);
/*drop i j;*/
run;