replicate.slope(.05, 23.4, 5.16, 50, 18.5, 4.48, 90, 4)
# Should return:
# Estimate SE t p
# Original: 23.40 5.160000 4.5348837 4.250869e-05
# Follow-up: 18.50 4.480000 4.1294643 8.465891e-05
# Original - Follow-up: 4.90 6.833447 0.7170612 4.749075e-01
# Average: 20.95 3.416724 6.1316052 1.504129e-08
# LL UL df
# Original: 13.007227 33.79277 45.0000
# Follow-up: 9.592560 27.40744 85.0000
# Original - Follow-up: -6.438743 16.23874 106.4035
# Average: 14.176310 27.72369 106.4035
Run the code above in your browser using DataLab