Interrater协议与CI计算

Question

我有以下数据集

df <- data.frame(Nurse=c(1,2,4,3,5,4,3,2,4,3), Patient=c(2,3,5,4,4,4,3,3,2,3))

在每一行中，一名护士和一名病人自行评估他们疾病的严重程度(从1-5)。每一行代表不同的病人和不同的事件。

我如何计算护士和病人之间的卡帕比率协议和计算相关的顺铂？

我试过了

kappa2(df,weight = "equal")

但并没有提供置信区间。

Answer 1

尝试使用psych库，它提供CI：

df <- data.frame(Nurse=c(1,2,4,3,5,4,3,2,4,3), Patient=c(2,3,5,4,4,4,3,3,2,3))

psych::cohen.kappa(df)

# Call: cohen.kappa1(x = x, w = w, n.obs = n.obs, alpha = alpha, levels = levels)
# 
# Cohen Kappa and Weighted Kappa correlation coefficients and confidence boundaries 
#                   lower estimate upper
# unweighted kappa -0.27    0.054  0.38
# weighted kappa    0.16    0.533  0.90
# 
# Number of subjects = 10