r - Sum Dice 样本结果并将它们放入表中

Question

我正在对存储在骰子卷上的掷骰子进行模拟

dieRolls <- sample(1:6,5000, replace = TRUE)

为了模拟掷两个骰子，我们利用复制功能来模拟掷两个骰子

replicate(2,dieRolls)
TwoRolledDiceSample <- replicate(2,dieRolls)

现在我需要创建一个两个骰子的总和表并利用

table(TwoRolledDiceSample)

仅返回 1:6 滚动的次数。任何帮助将不胜感激，因为我是第一次学习

标签： r

Answer 1

在您的代码中，您只滚动一次，然后复制该结果，这不是模拟 2 个骰子。

尝试：

dieRolls <- replicate(2,sample(1:6,5000, replace = TRUE))
TwoRolledDiceSample <- as.data.frame(dieRolls)
TwoRolledDiceSample$sum = TwoRolledDiceSample$V1 + TwoRolledDiceSample$V2

接着

table(TwoRolledDiceSample$sum )