如何使用For循环在R中插入此sigma方程？

Question

计算两个样本之间的系数的公式，每个样本有128个观察值：

我需要使用等式计算128个观测值的两个像素之间的系数。我的想法是在R中使用for循环。

等式是：

Rsi，Sj = sigma N（si sj） - sigma N（si）sigma N（sj）/ sqrt [（sigma N（si ^ 2 - （sigma N si）^ 2] [N sigma sj ^ 2 - （sigma sj）^ 2]

My dataset: 2 pixels x 128 observations (spectral bands) which i have in two lists
si = value of the reference pixel
sj = value of the target pixel
N = number of bands (128)

我对编码很新，因此不确定如何解决这个问题。 提前谢谢。