R 因子相关性的精确检验

给定两个因素，

X

和

Y

，其中

Y

不提供

X

以上的信息：

LETTER_PAIRS <- apply(combn(LETTERS, 2), MARGIN = 2, FUN = paste, collapse = "")
X <- as.factor(sample(LETTER_PAIRS, size = 1000, replace = TRUE))
Y <- as.factor(substr(X, start = 1, stop = 1))

---

。。。但是有没有更有效的方法呢

假设我有一个data.frame

df是可以的。通常我会指责别人太迟钝，但这次是我。我发现
表
和
行和
在大型运算中非常快，因此我想不出更有效的方法。我将返回并删除我的其他评论。没问题@bondedust
tab <- table(X, Y)
stopifnot(all(rowSums(tab > 0) == 1))