R中联合概率质量函数协方差的计算

我有两个变量X，Y的联合概率质量函数，就像这里

如何计算R中的协方差

我创建了两个向量x，y并将它们输入cov（），但得到了错误的结果

我怎样才能做到这一点

---

提前谢谢，编码愉快

既然这是一个编码论坛，我将把数学/统计的细节留给你。这里是R中的一个实现

我们首先注意X和Y的样本空间

# For G
G <- 0:3;

# For R
R <- 0:2;

其中，我们使用了

E[G]=mu_G

和

E[R]=mu_R

这两个事实作为各自的总体均值

---

这可能是更好的在家里，统计网站上的SE网络。啊，谢谢，我会问那时候！关于R实现，请看下面我的逐步回答。

joint_pmf <- matrix(
    c(4/84, 12/84, 4/84,
      18/84, 24/84, 3/84,
      12/84, 6/84, 0,
      1/84, 0, 0),
     ncol = 3, byrow = T);

# For G
mu_G <- rowSums(joint_pmf) %*% G;

# For R
mu_R <- colSums(joint_pmf) %*% R;

cov_GR <- G %*% joint_pmf %*% R - mu_G * mu_R;
#           [,1]
#[1,] -0.1666667