replicate.cor.gen(.05, .454, .170, .318, .098)
# Should return:
# Estimate SE z p LL UL
# Original: 0.454 0.17000000 2.2869806 0.0221969560 0.06991214 0.7208577
# Follow-up: 0.318 0.09800000 3.0215123 0.0025151541 0.11522137 0.4953353
# Original - Follow-up: 0.136 0.19622436 0.6671281 0.5046902807 -0.21543667 0.4237240
# Average: 0.386 0.09811218 3.4089419 0.0006521538 0.19606750 0.5480170
Run the code above in your browser using DataLab