求教 解释一段程序

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

哪位高手能为我解释下下面的程序，尤其是从第四行往下的，尽量详细点，各个语句的意思及其作用，多谢了啊！我是菜鸟。
data shifts_drifts;
  set lstar;
  by sample;
  array _n[10] _temporary_ (1 2 3 4 5 6 7 8 9 10);
  array _s[10] _temporary_;  array _d[10] _temporary_;
  if first.sample then call missing(of _s[*] _d[*]);
  do k =1 to dim(_n);
    if _s[k] <1 then if (sum1 ge (2.01+0.01*(_n[k]-1))) then do;
      _s[k] =1; n =_n[k]; cat ='shifts';
      output shifts_drifts;
keep sample n i cat;
    end;
    if _d[k] <1 then if (sum2 ge (2.01+0.01*(_n[k]-1))) then do;
      _d[k] =1; n =_n[k]; cat ='drifts';
      output shifts_drifts;
keep sample n i cat;
    end;
  end;
run;

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：TEMPORARY missing Sample Shifts array 程序

先看一看lstar 里面都有什么变量和数据
use
proc contents； ＝data＝lstar； run；
proc print; data=lstar; run;

有没有 i， sample, 有几个 ＿n，＿s， ＿d 。。。

yongyitian 发表于 2013-4-5 09:55
先看一看lstar 里面都有什么变量和数据
use
proc contents； ＝data＝lstar； run；

sample i  都有

t seems that the if condition: _s[k]< 1 is failed.
It also seems the array variabes _k[10] and _d[10] are not initialized, which means that there is no value.

you need to check the initial value of the array variables _s[10] and _d[10]
To do this by issue a few put _all_ statement at different lines.

such as

data shifts_drifts;
  set lstar;
  by sample;
  array _n[10] _temporary_ (1 2 3 4 5 6 7 8 9 10);
  array _s[10] _temporary_;  array _d[10] _temporary_;
put ' _A_ ' put _all_;
  if first.sample then call missing(of _s[*] _d[*]);
put ' _B_ ' put _all_;
  do k =1 to dim(_n);
put ' _C_ ' put _all_;
    if _s[k] <1 then if (sum1 ge (2.01+0.01*(_n[k]-1))) then do;
put ' _D_ ' put _all_;
      _s[k] =1; n =_n[k]; cat ='shifts';
      output shifts_drifts;
keep sample n i cat;
    end;
    if _d[k] <1 then if (sum2 ge (2.01+0.01*(_n[k]-1))) then do;
      _d[k] =1; n =_n[k]; cat ='drifts';
      output shifts_drifts;
keep sample n i cat;
    end;
  end;
run;

yongyitian 发表于 2013-4-5 10:25
t seems that the if condition: _s[k]< 1 is failed.
It also seems the array variabes _k[10] and _d[ ...

array _n[11] _temporary_ (1 2  3 4 5 6 7 8 9 10 11);
把括号里的数改成从1到1000，怎么改呢，请您继续执教

not sure, try 1:1000 or 1-1000

慧（会）幸福 发表于 2013-4-5 10:27
array _n[11] _temporary_ (1 2  3 4 5 6 7 8 9 10 11);
把括号里的数改成从1到1000，怎么改呢，请您继续 ...

data test;
  array _k[100] _temporary_ (1:100);
  array _d[100] _temporary_ (1:100);
  array _p[100] _temporary_ ;
put 'A ' _all_;
    do i=1 to 100;
          _p(i) = 100;
          put _k(i)=;
          put _d(i)=;
          put _p(i)=;
   end;
run;

yongyitian 发表于 2013-4-5 10:53
data test;
  array _k[100] _temporary_ (1:100);
  array _d[100] _temporary_ (1:100);

非常感谢，搞定了