[cry][cry]

奔跑吧，兄弟。别被你老师抓到了。

还是自己来吧！仅供参考，求各位指点

1、 f=function(x){exp((-1/2)*x)*(1-exp(-x)) }
I=integrate(f,0,Inf);I

2、 N=1000;z=NULL;T=NULL;
for(i in 1:N){
x=rnorm(10,0,2);
y=mean(x);
z=c(z,y);
h=mean(z);
t=(1/4)*sum((z-h)^2);
T=c(T,t);
  }hist(T)

3、n=0;mu=3;sigma=sqrt(2.1);
repeat{n=n+1;z=NULL;
for(j in 1:1000){
        x=rbinom(n,10,0.3);
        z=c(z,(mean(x)-mu)/(sigma/sqrt(n)));
                }
       h=ks.test(z,pnorm,0,1);
         if(h$p.value>0.05){break};
           }
list(N=n,p=h$p.value)

惭愧啊   我都不会

我不会。。。