f <- c(100, 6, 4, 40, 20, 1, 9, 120)
ci.agree.3rater(.05, f)
# Should return:
# Estimate LL UL
# G(1,2) 0.56666667 0.46601839 0.6524027
# G(1,3) 0.50000000 0.39564646 0.5911956
# G(2,3) 0.86666667 0.79701213 0.9135142
# G(1,2)-G(1,3) 0.06666667 0.00580397 0.1266464
# G(1,2)-G(2,3) -0.30000000 -0.40683919 -0.1891873
# G(2,3)-G(1,3) -0.36666667 -0.46222023 -0.2662566
# G(3) 0.64444444 0.57382971 0.7068720
Run the code above in your browser using DataLab