1个回答
展开全部
1234567y<-matrix(runif(1000*30),nrow=1000)xm<-(rowMeans(y)-0.5)*sqrt(420)x<-seq(-3,3,by=0.5)F<-sum(sapply(x,function(y) xm<y))/1000#F<-sum(c(xm< -3,xm< -2.5,xm< -2,xm< -1.5, xm< -1,xm< -0.5,xm<0,xm<0.5,xm<1,xm<1.5,xm<2,xm<2.5,xm<3))/1000b<-pnorm(x) #b<-pnorm(seq(-3,3,by=0.5))abs(b-F)
算F那段程序太丑陋了,我就换了种写法,原封不动的翻译在注释里(#后面)
算F那段程序太丑陋了,我就换了种写法,原封不动的翻译在注释里(#后面)
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询