r - 计算滚动两个骰子的优雅解决方案？

Question

我正在尝试计算在 R 中 100 次中两个骰子的每个角色我会得到多少次相同的结果。我使用了

werFun <-  function() {
 return(sample(1:6,2,TRUE))
}
count <- 0
matResult <- matrix(0,100,2)
for (i in 1:nrow(matResult)) {
  matResult[i,] <- werFun()
   if(matResult[i,1]==matResult[i,2]){
    count=count+1
 }
}  
print(count)

有没有优雅的解决方案？ .

Answer 1

试试这个

matResult <- matrix(replicate(100,sample(1:6,2,TRUE)),ncol = 2,byrow = T)
nrow(matResult[matResult[,1]==matResult[,2],])

另一种解决方案也适用于 n 骰子。

sum(apply(matResult,1,var)==0)