library(Epi)
res <- rbind(ATCB = c(1.185263, 1.037766, 1.353724),
             BCRE = c(1.28, 1.04, 1.57),
             APsm = c(0.9, 0.58, 1.40),
             APns = c(0.78, 0.34, 1.79))
res
plotEst(res, lwd = 3, vref = 1, xlog = TRUE)