1 진단검사

reproduc1<-read.csv("경로/icc1.csv")
head(reproduc1)

#ICC 검사
install.packages("psych")
library(psych)

ICC(reproduc1)

install.packages("irr")
library(irr)

icc(reproduc1, model="twoway", type="agreement", unit="single")



2 재현성 검사

reproduc2<-read.csv("경로/ckappa.csv")
head(reproduc2)

#교차표 확인
install.packages("gmodels")
library(gmodels)

CrossTable(x=reproduc2$test1, y=reproduc2$test2)

#코헨 카파 상관계수
install.packages("vcd")
library(vcd)

table1<-table(x=reproduc2$test1, y=reproduc2$test2)
result = Kappa(table1)
summary(result)

#신뢰도
install.packages("psych")
library(psych)

cohen.kappa(table1)