y1 = c(76.41, 66.91, 81.06, 74.78, 83.76, 89.31, 78.78, 87.06, 82.61, 76.74, 88.33, 86.18)
y2 = c(59.85, 60.64, 84.86, 68.16, 71.53, 86.18, 67.30, 65.46, 83.50, 66.76, 88.37, 65.02)
ci.ratio.mean.ps(.05, y1, y2)
# Should return:
# Mean1 Mean2 Mean1/Mean2 LL UL
# 80.99417 72.3025 1.120213 1.040747 1.205745
Run the code above in your browser using DataLab