replicate.cronbach(.05, .883, 100, .869, 200, 6)
# Should return:
# Estimate SE LL UL
# Original: 0.883 0.01830958 0.84356871 0.91522517
# Follow-up: 0.869 0.01442263 0.83874629 0.89523760
# Original - Follow-up: 0.014 0.02330779 -0.03336284 0.05820123
# Average: 0.876 0.01172239 0.85187755 0.89774525
Run the code above in your browser using DataLab