# Compare Fleiss kappa between students and expert raters
# For real analyses use more bootstrap samples (B >= 1000)
kappa_test_corr(ratings = SC_test, grpIdx = list(S=1:39, E=40:50), B = 125,
kappaF = kappam_fleiss,
kappaF_args = list(variant = "fleiss", ratingScale=-2:2))
Run the code above in your browser using DataLab