#試行回数を引数に取る関数
low_of_learge_number = function(num) {
#1から6の整数値を無作為抽出し、その結果を格納する
result = sample(6,num,replace=TRUE)
table = table(result)
return(table)
}
barplot(low_of_learge_number(10), main = "n=10")
パターン | 最小 | 最大 | 試行回数 |
---|---|---|---|
2回 | 2 | 12 | 10,000 |
5回 | 5 | 30 | 10,000 |
10回 | 10 | 60 | 10,000 |
clt = function (num1, num2) {
list = c()
#num1回分繰り返す
for (i in 1:num1) {
#num2回分サイコロを振る
result = sample(6, num2, replace = TRUE)
#出た目の総和を求める
total = rowSums(matrix(result, nrow = 1))
#求めた総和をベクトルに格納していく
list = c(list, total)
}
table = table(list)
return(table)
}
par(mfrow = c(3, 1))
barplot(clt(10000, 2), col = "#993435", main = "n=2")
barplot(clt(10000, 5), col = "#993435", main = "n=5")
barplot(clt(10000, 10), col = "#993435", main = "n=10")