2020春大连理工概率统计 上机作业

---

文首提示

如果有校友同学看到，这个作业都是随机数，自己用R语言ide再写一遍，千万别直接照抄，数都是随机的！！！！！！

第一次上机作业

1.（a）

> a <- rnorm(1000)
> mean(a)
[1] 0.03495309
> var(a)
[1] 0.9732954

（b）

> hist(a,freq=F)

期望很接近0，直方图的峰值在0的附近，左右分布较为均匀；
方差很接近1 。与计算结果较为拟合

2.（a）

> x <- rpois(100,2)
> mean(x)