R中大数定律的简单模拟？

Question

我理解大数定律，但在R中找不到任何简单的例子，有人能给我一个R中这个定律的例子吗？

致以问候！

Answer 1

这个问题可能会结束，但也许这样的问题就足够了：

die <- 1:6
roll <- function(n) {
  mean(sample(die, size = n, replace = TRUE))
}

plot(sapply(1:1000, roll), type = "l", xlab = "# of dice", ylab = "average")
abline(h = 3.5, col = "red")

​

​