# Fishers exact test
# Edps 589
# Fall 2018
# C.J.Anderson
#
# Uses Ilist schandel
#
library(vcd)
var.levels <- expand.grid(ilist=c("ilist","general"),
                          admission=c("yes","no"))
s <- data.frame(var.levels,count=c(123,18000,37,8000))	
s.tab <- xtabs(count~ ilist + admission,data=s)
					  
addmargins(s.tab)

fisher.test(s.tab,alternative="two.sided",conf.int=TRUE,conf.level=.99)