Atividade 3 _ Aula Beth

##Abrindo os dados no R
dados <- read.csv("C:/Users/Karina Marques/Desktop/Planilha_PROI_exercicio_Karina.csv", header = TRUE, sep= ";")

##instalar e abrir pacote de análise
library("irr")

## Loading required package: lpSolve

kappacategoria <- data.frame(dados$X, dados$X.3)
kappaclareza <- data.frame(dados$Juiz1, dados$Juiz2)
kappapertinencia <- data.frame(dados$X.1, dados$X.4)
kapparelevancia <- data.frame(dados$X.2, dados$X.5)

kappa2(kappacategoria)

##  Cohen's Kappa for 2 Raters (Weights: unweighted)
## 
##  Subjects = 62 
##    Raters = 2 
##     Kappa = 0.519 
## 
##         z = 11 
##   p-value = 0

kappa2(kappaclareza)

##  Cohen's Kappa for 2 Raters (Weights: unweighted)
## 
##  Subjects = 62 
##    Raters = 2 
##     Kappa = 0.138 
## 
##         z = 1.34 
##   p-value = 0.18

kappa2(kappapertinencia)

##  Cohen's Kappa for 2 Raters (Weights: unweighted)
## 
##  Subjects = 62 
##    Raters = 2 
##     Kappa = -0.0449 
## 
##         z = -0.594 
##   p-value = 0.552

kappa2(kapparelevancia)

##  Cohen's Kappa for 2 Raters (Weights: unweighted)
## 
##  Subjects = 62 
##    Raters = 2 
##     Kappa = 0.053 
## 
##         z = 0.777 
##   p-value = 0.437