请教这个程序

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

比如数据集A中有 48个观测，每连续3个一组，这样总共有48-3+1=46组，现从中抽取48个观测，从46组中随机抽一组，这样得到3个观测，然后再抽第二组，这样一直下去总共抽16次即可，这里考察重复抽样，也就是有的组可能多次被抽，为此编写的程序如下：

data a;

do i=1
to
48;

x=normal(0);

output;

end;

data b;

set a;

do j=1
to
16;

k=int(1+46*uniform(0));

if k le i and i le k+2
then
output;

end;

proc
print;run;
数据集b中的结果与事先预想的结果不一样，请问这个程序错在什么地方，如何编写满足上述要求的 程序，叩谢。

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Uniform output normal outpu print normal 程序 如何

data crackman;
do i=1 to 48;
x=normal(0);
output;
end;
run;
data crackman(drop=n i where=(z^=. and obs=1));
set crackman;
y=lag(x);
z=lag(y);
n=int(uniform(23)*100);
if n>=3 and n<46 then obs=1 ;
else obs=0;
run;
proc sql;
create table w1 as select x from crackman;
insert into w1  select y from crackman;
insert into w1  select z from crackman;
quit;

1. data a;
   
2.         do i=1 to 48 by 1;
   
3.                 output;
   
4.         end;
   
5. run;
   
6. 
   
7. data b;
   
8.         do i=1 to 16 by 1;
   
9.                 x=ceil(ranuni(0)*46);
   
10.                 output;
    
11.         end;
    
12. run;
    
13. 
    
14. proc sql;
    
15.         create table c as
    
16.                 select
    
17.                         b.x
    
18.                         ,a.i
    
19.                 from        b  inner join a
    
20.                 on                0<=a.i-b.x<=2
    
21.         ;
    
22. quit;

复制代码

data步可以搞定的，这个比较直观......希望是对的

1. data a;
   
2.         do i=1 to 48 by 1;
   
3.                 output;
   
4.         end;
   
5. run;
   
6. 
   
7. data b;
   
8.         do i=1 to 16 by 1;
   
9.                 x=ceil(ranuni(0)*46);
   
10.                 output;
    
11.         end;
    
12. run;
    
13. 
    
14. proc sql;
    
15.         create table c as
    
16.                 select
    
17.                         b.x
    
18.                         ,a.i
    
19.                 from        b  inner join a
    
20.                 on                0<=a.i-b.x<=2
    
21.         ;
    
22. quit;

复制代码

data步可以搞定的，这个比较直观......希望是对的

学习了 不错 ON也可以这样写

确实厉害，学习了

不错  学习了

看来SQL过程很重要，在我所问的几个问题中，几乎无一例外都要使用这个过程，是应该看看这个过程了，谢谢3楼兄弟的热心帮助。