是否有简单模拟r中的大数定律？

Question

我理解大数定律，但是找不到任何在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")