【求助】急，SAS循环！！！！

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

本人正在做论文，遇到一个问题，求高人解决
我现在有29只股票的月收益率数据，现在要对其进行随机等权抽样，
1）先抽取1只股票，求收益率的均值和标准差；
2）再抽取2只股票，求这2只股票的收益率的均值和标准差；
3）···依次···；
4）抽取29只股票，求这29只股票的收益率的均值和标准差；
5）输出1）～4）的结果；
6）重复以上1）～5）步骤30次；

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：收益率 标准差 求助 SAS

data a;
do i=1 to 29;
x=ranuni(29);
output;
end;
format x f8.4;
run;
proc surveyselect data=a out=b method=sys sampsize=4 seed=10;
run;
proc means data=c mean std ;
var x;
output out=d (drop=_type_) mean=avg std=std;
run;

data a;
do i=1 to 29;
x=ranuni(29);
output;
end;
format x f8.4;
run;
proc surveyselect data=a out=b method=sys sampsize=4 seed=10;
run;
proc means data=c mean std ;
var x;
output out=d (drop=_type_) mean=avg std=std;
run;

data crackman;
do i=1 to 29;
x=ranuni(29);
output;
end;
format x f8.4;
run;
%crackman;
%macro crackman;
%do m=1 %to 30;
%a(k=&&m.);
%end;
%mend crackman;
%macro crackman1(k=);
%do n=1 %to 29;
proc surveyselect data=a out=b&n. method=sys sampsize=&n. seed=%eval(&k.*&n.);
run;
proc means data=b&n. mean std ;
var x;
output out=d&n. (drop=_type_) mean=avg std=std;
run;
%end;
%do n=1 %to 29;
proc append base=d1 data=d&n. force;
run;
%end;
data m&k.;
set d1;
run;
%mend crackman1;
结果里面的M1-M30为结果
_freq_为每一次抽样的样本个数 AVG为均值 STD为标准差
楼主看哈
我这个程序电脑上跑了几分钟，效率还是有点低 希望高手来补充，优化一下

data crackman;
do i=1 to 29;
x=ranuni(29);
output;
end;
format x f8.4;
run;
%crackman;
%macro crackman;
%do m=1 %to 30;
%crackman1(k=&&m.);
%end;
%mend crackman;
%macro crackman1(k=);
%do n=1 %to 29;
proc surveyselect data=a out=b&n. method=sys sampsize=&n. seed=%eval(&k.*&n.);
run;
proc means data=b&n. mean std ;
var x;
output out=d&n. (drop=_type_) mean=avg std=std;
run;
%end;
%do n=1 %to 29;
proc append base=d1 data=d&n. force;
run;
%end;
data m&k.;
set d1;
run;
%mend crackman1;
结果里面的M1-M30为结果
_freq_为每一次抽样的样本个数 AVG为均值 STD为标准差
楼主看哈
我这个程序电脑上跑了几分钟，效率还是有点低 希望高手来补充，优化一下

5# crackman

So good。

不错 学习了

好好学习  ！！