y2 <- c(32, 39, 26, 35, 43, 27, 40, 37, 34, 29, 49, 42, 40)
y1 <- c(36, 44, 47, 42, 49, 39, 46, 31, 33, 48)
ci.ratio.mean2(.05, y1, y2)
# Should return:
#
# Mean1 Mean2 Mean1/Mean2 LL UL
# 41.5 36.38462 1.140592 0.9897482 1.314425
Run the code above in your browser using DataLab