r - 模拟滚动两个骰子

Question

我正在尝试模拟掷两个骰子。我用了:

d2 <- sample(1:6, 10^6, replace = T) + sample(1:6, 10^6, replace = T)

并获得预期的结果。我也试过了

s2d <- c()
for (i in 1:6) { 
  for (j in 1:6){ 
    s2d <- c(s2d, (i+j)) 
  } 
}
d2 <- sample(s2d, 10^6, replace=T)

并且也可以，但是这些感觉有点“强力”。有没有更简单，更优雅的方法呢？

笼统地说，是否有一个函数接受2个(或多个)独立事件，并对它们进行操作(加法，乘法)？

Answer 1

如果您的问题是您不能掷任意数量的骰子，则类似于:

rowSums(replicate(2, sample(6, 10^6, replace=T)))

会更灵活。