确定在R中滚动加载的模具两次的所有结果的概率

Question

R的新手。我加载了标准的6面模具，因此“ 4”的可能性是其他任何面的两倍，因此我的随机变量看起来像：]]

X1 = {[1，1/7]，[2，1/7]，[3，1/7]，[4，2/7]，[5，1/7]，[6，1 / 7]}

我想找到一个随机变量（X2）的全部概率密度函数，该函数将两个掷骰（X1 + X1）的结果相加，因此输出为X2 = {[2，1/49]，[3 ，1/49]，...，[12，1/49]}。输出可以是数据框，表或您认为最合适的任何内容。

我尝试了以下操作：

dice <- c(1,2,3,4,5,6)
probs <- c(1/7, 1/7, 1/7, 2/7, 1/7, 1/7) 
c <- expand.grid(probs, probs)
d <- c[,1]*c[,2]
table(d)
但是，这显然不会将结果的概率与其各自的结果联系起来。我将如何去做？

R的新手。我加载了标准的6面模具，因此“ 4”的可能性是其他任何面的两倍，因此我的随机变量将类似于：X1 = {[[1，1/7]，[ 2，1/7]，[3，1/7]，[4，2/7]，[5，1/7] ...

Answer 1

基于已经完成的工作，一种进行方法是：