实在不行了，求助大家，关于simulation的CODE。~~实在不会写啊~

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

题目是这样的，给定一个分布如下

y    p_y
1    0.05
2    0.15
3    0.15
4    0.15
5    0.5

生成1000个数，然后求这1000个数的平均值

之后重复10000次

求出10000个平均数的分布~


脑袋都想破了，求助求助！
高手帮帮忙吧~

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Simulation ulation ATION code 求助大家 平均数 平均值

编程题目？

统计课的题目

水木羽泉 发表于 2012-4-5 14:01
编程题目？

是统计的题目~
要疯了都~
帮帮忙吧~

大侠们，帮帮忙吧~

对不起,我不是学统计的,只会根据具体的要求做sas程序,能把你的问题描述的清楚一些,我可能会有办法

paoo 发表于 2012-4-5 14:08
是统计的题目~
要疯了都~
帮帮忙吧~

。。。我不会。。。
我说不像程序呢 呵呵

This code could generate the base data u want.

1. proc sql;
   
2. drop table temp01;
   
3. drop table temp02;
   
4. drop table temp03;
   
5. quit;
   
6. %macro cycle_macro(cycle);
   
7. %do c = 1 %to &cycle.;
   
8. data temp01(keep = y);
   
9. do ii = 1 to 1000;
   
10. r1 = abs(rannor(0));
    
11. r2 = r1 - floor(r1);
    
12. select;
    
13. when ( r2<=0.05 ) y = 1;
    
14. when ( r2<=0.05 + 0.15 ) y = 2;
    
15. when ( r2<=0.05 + 0.15*2 ) y = 3;
    
16. when ( r2<=0.05 + 0.15*3 ) y = 4;
    
17. otherwise y = 5;
    
18. end;
    
19. output;
    
20. end;
    
21. run;
    
22. proc sql;
    
23. create table temp02 as
    
24. select avg(y) as avg_y from temp01;
    
25. quit;
    
26. proc append base = temp03 data = temp02; run;
    
27. %end;
    
28. %mend;
    
29. %cycle_macro(cycle = 10000);

复制代码

lz gives an excellent solution. you can also read the following:
http://blog.sina.com.cn/s/blog_a3a9263601011zz2.html