如何找到 table 中序数数据的 r 相关系数 - 在 R 中?

How can you find r correlation coefficient for ordinal data in a table - in R?

我想知道如何找到 r,序数数据集的意外事件 table 的相关系数。我的文本给出了以下公式: formula attached

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

例如,如果我的 table 是

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"))

R 能帮我快速计算出这个示例数据集的 r 吗?这种情况下的答案应该是 r = 0.14

polycor 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