R语言 epiDisplay软件包中的数据集Oswego包含有关不同的食物中毒爆发的信息。使用交叉表分析（contingency table）分析哪些食物或饮料会导致食物中毒？

R语言的epiDisplay软件包中的Oswego数据集主要用于研究公共卫生领域，特别是食物中毒事件的数据。这个数据集包含了关于食物中毒爆发的详细信息，如爆发的时间、地点、涉及的食物或饮料等变量。

使用交叉表（Contingency Table），也称为列联表（Frequency Table of Categorical Variables），可以分析每种食物或饮料与食物中毒事件之间的关联程度。通过比较不同类别间的频数分布，我们可以计算出各种食物导致食物中毒的相对频率（比如比例或百分比），以及是否存在统计学上的显著关联（例如chi-square检验）。

为了进行这样的分析，你需要做的是：

1. 加载epiDisplay库和Oswego数据集。

library(epiDisplay)
data(Oswego)

2. 创建一个交叉表，将“食品”或“饮料”作为行标签，将“是否发生食物中毒”作为列标签。

food_poison_table <- contingencyTable(formula = Outcome ~ Food, data = Oswego)

3. 查看交叉表的结果，包括每个食物类型的频数以及它们与食物中毒的关联度。

print(food_poison_table)

4. 进行统计检验（如chi-square测试），看看是否有足够的证据支持某些食物与食物中毒之间的显著关联。

chisq.test(food_poison_table)