R 误差(费舍尔检验)：'x'的所有条目必须是非负的和有限的

Question

我必须测试2个不同治疗组(CTRL和DWV(的蜜蜂是否倾向于使用费舍尔精确测试收集花蜜与花粉。

data=structure(list(TREATMENT = structure(1:2, .Label = c("CTRL", 
"DWV"), class = "factor"), 
POLLEN_BIN.sum = c(35, 27), NECTAR_BIN.sum = c(48, 
9)), .Names = c("TREATMENT", "POLLEN_BIN.sum", "NECTAR_BIN.sum"
), row.names = 1:2, class = "data.frame")
fisher.test(data)

我收到以下错误：

Error in fisher.test(data) : 
all entries of 'x' must be nonnegative and finite

不过，我看不出我的 2x2 矩阵有什么问题

附加信息：

R version: 3.4.1 (2017-06-30) -- "Single Candle"
OS: Windows 10 64

提前感谢您尝试提供帮助。

Answer 1

下次你应该像这样制作数据

data <- data.frame(POLLEN_BIN.sum=c(35,27),
NECTAR_BIN.sum=c(38,9))
rownames(data) <- c("CTRL","DWV")
#      POLLEN_BIN.sum NECTAR_BIN.sum
# CTRL             35             38
# DWV              27              9

这使行名与数据分开

然后以下作品

fisher.test(data)
# data:  data
# p-value = 0.008066