利用R语言irr包计算ICC值（组内相关系数）

ICC值是一个较为陌生的概念，在统计学中应用较多，引用百度百科的介绍：

组内相关系数(ICC)是衡量和评价观察者间信度(inter-observer reliability)和复测信度(test-retest reliability)的信度系数(reliability coefficient)指标之一。它最先由Bartko于1966年用于测量和评价信度的大小。ICC等于个体的变异度除以总的变异度，故其值介于0～1之间。0表示不可信，1表示完全可信。一般认为信度系数低于0.4表示信度较差，大于0.75表示信度良好，对于定量资料常常需要更高的ICC值。

——百度百科

一般的编程语言中计算ICC值的手段比较少，需要在专业的软件SPSS、SAS中，才能进行比较方便的计算。今天推荐一个新的方法——利用R语言的irr包完成icc值的分析。

话不多说，直接上代码示例：

#twoway agreement
#Relative Path of the file，相对路径
setwd("C:/Users/abc/Desktop/abc/interval")
library("xlsx")

#load the data here
data1 = read.xlsx('gt_ai_merged.xlsx',1)
data2 = data1[1:147,5:6]
#data2指提取第5-6列，第1-147行的数据

#这里需要安装lpSolve包和irr包
library('lpSolve')
library('irr')
icc(data2, model="twoway",type="agreement")
result <- icc_