2020年大连理工大学概率与统计上机作业答案
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
语言是R，答案在题后面
1.1
> a<-rnorm(1000,0,1)
> mean(a)
[1] -0.001001126
> var(a)
[1] 1.039103
> hist(a,freq=F)
1.2
> x=c(1,100)
> x=rpois(100,2)
> x
[1] 2 1 1 1 1 0 2 0 3 2 6 1 3 2 0 1 1 2 3 1 3 0 2 1 1 0 1 3 1 3 1 4 2 3 0 2 4 2 3 3 2 1 2 1 1 1 1
2 3 1 2 1 1 2 5 0 3 1 0 2 2 3 2 2 2 2 3 2 1 4 1 2 2 4 3 2 1 0 0 2 2 3 1 1 3 2 1 0 0 0 1 4 3 2 2 2 4
3 1 3
> mean(x)
[1] 1.82
> var(x)
[1] 1.482424
> hist(x,freq=F)
> y=c(1:1000)
> for(i in 1:1000){y[i]=mean(rpois(100,2))}
> sy=c(1:1000)
> for(i in 1:1000){sy[i] = (y[i]-2)/sqrt(2)}
> mean(sy)
[1] 0.0001414214
> var(sy)
[1] 0.01093692
> hist(sy,freq=F)
> q()
2
> x=runif(1000,min=0,max=5)
> mean(x)
[1] 2.430625
> y=4*x-6
> mean(y)
[1] 3.722498
> var(x)
[1] 2.07736
> var(y)
[1] 33.23776
> cov(x,y)
[1] 8.309441
> cor(x,y)
[1] 1
> cor(x,x*exp(2*x^0))
[1] 1
> cor(x,x*exp(2*x^1))
[1] 0.6432756
> cor(x,x*exp(2*x^2))
[1] 0.2723826 >