LLN

以特定擲單個骰子的過程來展示大數法則。隨著投擲次數的增加，所有結果的平均值趨於3.5（骰子點數的期望值）。這個實驗會在投擲數量較小的時候（左部）會表現出不穩定的變化，隨著數量變得很大（右部）的時候，它們將會趨近期望值 (資料來源：維基百科)

x <- c()
y <- c()
for (i in 1:1000) {x <- rbind(x, sample(1:6,1)); y <- rbind(y, sum(x)/i)}

plot(1:1000,y,type="l", main = "tossing 1000 times" , xlab= "times" , ylab= "average", ylim = c(1,6), col = "red")
abline(a=3.5, b=0)