f <- c(100, 6, 4, 40, 20, 1, 9, 120)
ci.agree.3rater(.05, f)
# Should return:
# Estimate LL UL
# G(1,2) 0.5667 0.4660 0.6524
# G(1,3) 0.5000 0.3956 0.5912
# G(2,3) 0.8667 0.7970 0.9135
# G(1,2)-G(1,3) 0.0667 0.0058 0.1266
# G(1,2)-G(2,3) -0.3000 -0.4068 -0.1892
# G(2,3)-G(1,3) -0.3667 -0.4622 -0.2663
# G(3) 0.6444 0.5738 0.7069
Run the code above in your browser using DataLab