如何在r中的表格中找到有序数据的r相关系数？

我想知道如何找到r，有序数据集列联表的相关系数。我的文本给出了以下公式：

是否有进行此计算的R包或函数

例如，如果我的桌子是

T <- as.table(rbind(
     c(9, 44, 13, 10), 
     c(11, 52, 23, 22), 
     c(9, 41, 12, 27)))

dimnames(T) <- list(Var1 = c("A","B","C"), 
                     Var2 = c("W","X","Y","Z"))

---

Tpolycor
R软件包应该能够得到正确的解决方案：

T
##     Var2
## Var1  W  X  Y  Z
##    A  9 44 13 10
##    B 11 52 23 22
##    C  9 41 12 27

# install.packages("polycor")
library(polycor)
polychor(T)
## [1] 0.148935

令人惊叹的！我使用的是polycor（不带“h”）。非常感谢！