求助SAS编写程序：相邻数据小于7，则置为缺失

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

编写程序：六个变量的d1-d6，数据如下：
1   2   7   23   100   1000
2   3   33   54   56    1000
3   .    4    6      44    100
要求：如果相邻数据小于等于7，则置为缺失。
输出结果如下：
1    .     .      23    100     1000
.     .     33    .        .         1000  
3    .     .      .         44      100

data;
input d1-d6;
array s d1-d6;
do i=1 to 6;
if s(i)-s(i-1)<=7 then s(i)=s(i-1)=.;
end;
cards;
1 2 7 23 100 1000
2 3 33 54 56 1000
3 . 4 6 44 100
;
run;
proc print;
run;
高手帮我看一下，是哪里错了。谢谢！

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：编写程序 Input array 输出结果 Data 编写程序

if s(i)-s(i-1)<=7 then s(i)=s(i-1)=.;
超出了数组的下界了

data test;
input d1-d6;
array s d1-d6;
do i=1 to dim(s);
do j=i+1 to dim(s);
if s(j)-s(i)<=7 and s(j) ^=. and s(i) ^=. then s(i)=s(j)=.;
end;
end;
cards;
1 2 7 23 100 1000
2 3 33 54 56 1000
3 . 4 6 44   100
;
run;
data a;
set test;
array s d1-d6;
do i=1 to dim(s);
if s(i)=0 then s(i)=.;
end;
proc print;
run;

谢谢crackman!

good one...

data test;
input d1-d6;
array s d1-d6;
do i=1 to dim(s);
j=i+1;
if s(j)-s(i)<=7 and j<=dim(s) and s(j) ^=. and s(i) ^=. then s(i)=s(j)=.;
end;
end;
cards;
1 2 7 23 100 1000
2 3 33 54 56 1000
3 . 4 6 44   100
;
run;
data a;
set test;
array s d1-d6;
do i=1 to dim(s);
if s(i)=0 then s(i)=.;
end;
proc print;
run;
这两个程序有一点差别

改动了下 ls程序，不用第二个data step了。但是不知道原因是什么，盼解释为什么原程序 s(i)=s(j)=0而不是定义的 missing.

data test;
input d1-d6;
array s d1-d6;
do i=1 to dim(s);
j=i+1;
if s(j)-s(i)<=7 and j<=dim(s) and s(j) ^=. and s(i) ^=. then do; s(i)=.;s(j)=.;end;
end;
end;
cards;
1 2 7 23 100 1000
2 3 33 54 56 1000
3 . 4 6 44   100
;
run;

怎么程序输出结果在缺失值的地方是0，0是不是就是缺失值？

进来学习 array很久不用了

data test;
input d1-d6;
array s d1-d6;
do i=1 to dim(s)-1;
j=i+1;
if s(j)-s(i)<=7 and j<dim(s) and s(j) ^=. and s(i) ^=. then do; s(i)=.;s(j)=.;end;
end;
cards;
1 2 7 23 100 1000
2 3 33 54 56 1000
3 . 4 6 44   100
;
run;