# Shrout & Fleiss (1979), Table 1: 4 raters, 6 targets.
shrout_fleiss <- matrix(
c(9, 2, 5, 8,
6, 1, 3, 2,
8, 4, 6, 8,
7, 1, 2, 6,
10, 5, 6, 9,
6, 2, 4, 7),
nrow = 6, byrow = TRUE,
dimnames = list(paste0("Target_", 1:6),
paste0("Judge_", 1:4))
)
icc(shrout_fleiss, type = "all")
# Just the two-way mixed-model single-rater consistency ICC:
icc(shrout_fleiss, type = "ICC(3,1)")
Run the code above in your browser using DataLab