Code snippet for odds ratio CIs in R

makeOR <- function(mod,CI=.95){
  x <- as.data.frame(summary(mod)$coefficients)
  x$OR <- exp(x$Estimate)
  x$OR.UB <- exp(x$Estimate+x[,"Std. Error"]*qnorm((1-CI)/2))
  x$OR.LB <- exp(x$Estimate+x[,"Std. Error"]*qnorm(1-(1-CI)/2))
return(x)
}