好吧，基本上，如果您在涉及权重时查看协方差公式(查看此图片，以便一切都清楚 http://postimg.org/image/sjr2tnk85/(，我只想计算所有不同权重对的总和，如我上传的图片链接中突出显示的那样。
我绝对需要图片中突出显示的特定数量。我没有使用公式 cor(( [我试过了，但它没用]
我试图使用"for"循环试图遵循数学公式，但空手而归。
如果这篇文章缺乏这个论坛所需的特异性，我很抱歉，但这是我能想到的解释我的问题的最佳方式。
sum(outer(w,w), -crossprod(w)) / 2
Z <- outer(a,b)创建一个矩阵，其中Z[i,j] = a[i]*b[j] .为 a 和 b 插入 w，这是一个对称矩阵。
crossprod(x)计算 x 的平方和。这是上述矩阵的对角线之和。
取差值，然后除以 2，因为您只需要矩阵的上半部分。
或者，您可以尝试sum( apply(combn(w,2), 2, prod) )显式形成每个对，将它们相乘并相加。