R中的统计检验：fisher检验和逻辑变量作为二进制

我应该在变量“亚麻酸大于0.33”和变量“区域等于撒丁岛”之间选择并使用正确的统计检验。这是两个二进制变量，所以我尝试使用fisher.test，但如何将它们更改为表的逻辑变量呢

library(dslabs)
dt <- as.data.table(olive)

库（dslabs）
这就是你要找的吗

table(dt[,.(Region = region == "Sardinia", Linolelic = linolenic > 0.33)])
#       Linolelic
#Region  FALSE TRUE
#  FALSE   220  254
#  TRUE     86   12

然后方便地：

fisher.test(table(dt[,.(Region = region == "Sardinia", Linolelic = linolenic > 0.33)]))
#   Fisher's Exact Test for Count Data
#
#data:  table(dt[, .(Region = region == "Sardinia", Linolelic = linolenic > 0.33)])
#p-value = 4.58e-15
#alternative hypothesis: true odds ratio is not equal to 1
#95 percent confidence interval:
# 0.05870264 0.23036344
#sample estimates:
#odds ratio 
# 0.1212736 

请注意，Fisher的“精确”测试并不十分准确：