######################################################################
# STAT 7030 - Categorical Data Analysis 
# Peng Zeng (Auburn University)
# 2023-12-27
######################################################################

######################################################################
# Aspirin and Heart Attack
######################################################################

odds.ratio = (189 * 10933) / (10845 * 104)
SE = sqrt(sum(1/c(189, 10845, 104, 10933)))
CI.logodds = log(odds.ratio) + c(-1, 1) * qnorm(0.975) * SE
CI.oddsratio = exp(CI.logodds)

######################################################################
# THE END
######################################################################