求各位好心人帮帮忙！明天晚上就要答案了！还是不会啊

已经用不上的床，
让风吹得干净些。已经成为回忆的时光，
沉淀是最好的流浪

hhhhhh

惭愧啊·····

不错的题目

一同等待答案。。。。

oliyiyi 发表于 2015-1-9 23:56
不错的题目

谢谢！
可以帮忙看看怎么做吗？我之前也自己写了，但说是错的

shiziz1989 发表于 2015-1-9 23:03
惭愧啊·····

[cry][cry]

henryyhl 发表于 2015-1-10 07:33
一同等待答案。。。。

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

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

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)