内容发布更新时间 : 2024/5/3 14:48:29星期一 下面是文章的全部内容请认真阅读。

t.test(x)

由R结果知：理论值为[-1.96,1.96]，实际值为：[-0.07929,0.33001] 3.6

op <- par(mfrow=c(2,2))

limite.central(rbeta, distpar=c(0.5 ,0.5),n=c(30,200,500,1000)) par(op)

3.7

N=seq(-4,4,length=1000) f<-function(x){

dnorm(x)/sum(dnorm(x)) }

n=f(N)

result=sample(n,replace=T,size = 1000) standdata=rnorm(1000)

op<-par(mfrow=c(1,2)) #1行2列数组按列（mfcol）或行（mfrow）各自绘图 hist(result,probability = T)

lines(density(result),col=\

hist(standdata,probability = T)

lines(density(standdata),col=\par(op)