对因素依赖性的精确测试

Question

考虑到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))

Y对X的依赖性可以通过交叉制表来验证。 X的每个值都与Y

的不超过1个唯一值相关联

tab <- table(X, Y)
stopifnot(all(rowSums(tab > 0) == 1))

......但是有更有效的方法吗？