R-感受中央極限定理

作業：
有100頂帽子，每次從中拿起一頂，可再放回，重複1000000次。

>x=sample(1:100, 1000000, T)  //X的樣本1000000次，每次從1到100中隨機選擇1個數字，T為可放回
>y=sample(1:100, 1000000, T)
>z=sample(1:100, 1000000, T)
>hist(x, breaks=0.5:101)  //  顯示X的可能 X斷點設為0.5，到101，最大為100.5

>hist(y, breaks=0.5:101)  // 顯示Y的可能

>hist(z, breaks=0.5:101)  // 顯示Z的可能

>hist(x+y, breaks=1.5:203) // 顯示X+Y的可能

>hist(x+y+z, breaks=2.5:305)  //顯示X+Y+Z的可能