>>616
1000万回シミュレーションした結果

> # サイコロ6個振って目の合計が26を超える確率
> sim <- function() sum(sample(6,6,replace = TRUE)) > 26
> mean(replicate(1e7,sim()))
[1] 0.0963488