我想使用R包irr
来计算Krippendorff的Alpha评分系数,该系数包括许多评估者/编码者和相同科目(序数据)。
使用包irr中的“来自Krippendorff的C数据”的示例,如何计算非相邻评估者对的Alpha系数(即评估者1和评估者4)?
如何通过for…loop
脚本对所有对象(相邻和非相邻)进一步自动化此计算过程?
以下是irr
的脚本:
# the "C" data from Krippendorff
nmm<-matrix(c(1,1,NA,1,2,2,3,2,3,3,3,3,3,3,3,3,2,2,2,2,1,2,3,4,4,4,4,4,
1,1,2,1,2,2,2,2,NA,5,5,5,NA,NA,1,1,NA,NA,3,NA),nrow=4)
kripp.alpha(nmm,"ordinal")
#rater per row; rated subject per column; NAs allowed
#better scripted this would become:
kripp.alpha(nmm [1:4, 1:12],"ordinal")
# adjacent pairs can be calculated easily:
kripp.alpha(nmm [2:4, 1:12],"ordinal")
# I should like to calculate KrippAlpha for non-adjacent pair 1 versus 4
答案 0 :(得分:0)
在相关项目列
中找到答案脚本运行正常:
kripp.alpha(nmm [c(1,4), 1:12],"ordinal")