家中有盒 Pictionary 不見了骰仔 ((我其實更愛玩無需骰仔的遊戲，如 Hearts 。)) ，每次玩都要從麻雀拿一粒骰仔頂當，都幾煩。
電腦抽（假）亂數，好像比骰仔還好。網上 Search 下有十九幾萬個軟件模疑骰仔。但以我每每喜歡原子彈炸烏蠅的作風，我發現用來做統計分析的 R 可以模疑骰仔。
網上找找見到這樣的一句：
dsize < - 6
nrolls <- 1
ndice <- 1
matrix(sample(dsize, nrolls * ndice, replace = TRUE), nrolls, ndice)
甚至可以將它 Function 之
dice.sim < - function(dsize=6,nrolls=1,ndice=1) {
matrix(sample(dsize, nrolls * ndice, replace = TRUE), nrolls, ndice)
}
只需要改變三個參數
dsize: 骰子面數，即最大幾多點
nrolls: 擲骰幾次
ndice: 一次擲幾多粒
多數遊戲數是用六面骰擲一次，每次一粒。例如玩 Pictionary 或飛行棋。
> dice.sim()
[,1]
[1,] 2
如果打麻雀，六面骰擲一次，每次三粒。 ((術語叫做 3d6 ))
> dice.sim(6,1,3)
[,1] [,2] [,3]
[1,] 5 6 1
又例如玩龍與地下城，打架時要擲廿面骰一次，每次一粒。
> dice.sim(20,1,1)
[,1]
[1,] 11
假如你只關心骰仔點數總和。上面麻雀例子可改為：
> sum(dice.sim(6,1,3))
[1] 9
由此可見我這個人都相當無聊。