utah<-c(30*2+17,6+2*8)
utah
[1] 77 22
non_utah<-c(33*2+11,4+2*2)
non_utah
[1] 77 8
seafood<-data.frame(cbind(non_utah,utah))
fisher.test(seafood)
Fisher's Exact Test for Count Data
data: seafood
p-value = 0.02668
alternative hypothesis: true odds ratio is not equal to 1
95 percent confidence interval:
1.090333 7.562747
sample estimates:
odds ratio
2.735591