怎样理解随机抽样

我想请问一下高手，请问您是否可以编一个sas程序，满足以下要求：1.生成一个正态分布的总体A；2.从这个正态分布的总体A中，随机抽出N个含有相同样本量的样本（A1、A2、A3、A4、A5·······An），然后一一检验每个样本与正态分布总体之间的差别（分别用A1、A2、A3、A4、A5·······An的各自均数与总体A均数的比较，可以用样本均数与总体均数比较的t检验），看每个样本是否来自这个共同的总体，这样可以得到N个P值，再把这N个P值一一列出来，最后统计一下小于0.05的P值的个数。谢谢高手！

嗯，你之前把参数修改成n1的时候，宏里面还有一个参数未改成n1，所以出错，现在弄好了，你试试看

1. data a;
   
2.         do i=1 to 10000;
   
3.                 x=0+1*rannor(0);
   
4.                 group=0;
   
5.                 output;
   
6.         end;
   
7.         drop i;
   
8. run;
   
9. 
   
10. %macro test(n1);
    
11. %do i=1 %to &n1.;
    
12.         proc surveyselect data=a out=b&i.
    
13.         method = srs
    
14.                n=53
    
15.         seed =0;
    
16. run;
    
17. 
    
18. data b&i;
    
19.         set b&i;
    
20.         group=&i.;
    
21. run;
    
22. 
    
23. data test&i.;
    
24.         set a b&i.;
    
25. run;
    
26. 
    
27. ods output ttests=p&i.;
    
28.         proc ttest data=test&i.;
    
29.                 class group;
    
30.                 var  x;
    
31.         quit;
    
32. ods output close;
    
33. 
    
34. data p&i.;
    
35.         set p&i.;
    
36.         if Variances="Equal" then call symput("p&i.",Probt);
    
37. run;
    
38. %end;
    
39. 
    
40. /*将每个样本与总体t检验的p值输出到同一个数据集中*/
    
41. data p;
    
42.                 retain count;
    
43.         %do j=1 %to &n1.;
    
44.                  p_valute=&&p&j.;
    
45.                                  if p_valute<0.05 then count+1;/*计算p值小于0.05的样本个数*/
    
46.                                  output;
    
47.         %end;
    
48. run;
    
49. 
    
50. %mend;
    
51. %test(10);

复制代码