replicate.mean1(.05, 21.9, 3.82, 40, 25.2, 3.98, 75)
# Should return:
# Estimate SE LL UL df
# Original: 21.90 0.6039950 20.678305 23.121695 39.00000
# Follow-up: 25.20 0.4595708 24.284285 26.115715 74.00000
# Original - Follow-up: -3.30 0.7589567 -4.562527 -2.037473 82.63282
# Average: 23.55 0.3794784 22.795183 24.304817 82.63282
Run the code above in your browser using DataLab