Simulation from class
source("http://biostat.jhsph.edu/~iruczins/teaching/140.652/func/twoBinomPost.R")
x1 <- 11; n1 <- 20
x2 <- 5; n2 <- 20
twoBinomPost(x1,n1,x2,n2)
## Post mn rd (mcse) = -0.27 (0.004)
## Post mn rr (mcse) = 0.525 (0.007)
## Post mn or (mcse) = 0.37 (0.009)
##
## Post med rd = -0.273
## Post med rr = 0.492
## Post med or = 0.298
##
## Post mod rd = -0.283
## Post mod rr = 0.437
## Post mor or = 0.214
##
## Equi-tail rd = -0.542 0.004
## Equi-tail rr = 0.189 1.01
## Equi-tail or = 0.075 1.016