y1 <- c(3.3, 3.6, 3.0, 3.1, 3.9, 4.2, 3.5, 3.3)
y2 <- c(3.0, 3.1, 2.7, 2.6, 3.2, 3.8, 3.2, 3.0)
ci.ratio.mean.ps(.05, y1, y2)
# Should return:
# Mean1 Mean2 Mean1/Mean2 LL UL
# 3.4875 3.075 1.134146 1.09417 1.175583
Run the code above in your browser using DataLab