replicate.cor(.05, .598, 80, .324, 200, 0)
# Should return:
# Estimate SE z p LL UL
# Original: 0.598 0.07320782 6.589418 4.708045e-09 0.4355043 0.7227538
# Follow-up: 0.324 0.06376782 4.819037 2.865955e-06 0.1939787 0.4428347
# Original - Follow-up: 0.274 0.09708614 2.633335 8.455096e-03 0.1065496 0.4265016
# Average: 0.461 0.04854307 7.634998 2.264855e-14 0.3725367 0.5411607
Run the code above in your browser using DataLab