Coeficiente de Kappa

# o coeficiente de Kappa é uma medida de concordância entre resultados qualitativos, geralmente utilizado como medida de concordância entre testes diagnósticos e avaliações clínicas

# Exemplo: Considere três métodos diagnósticos para detectar determinada doença em cães, aplicados em  amostra de 200 animais. Os resultados (dados hipotéticos) foram:

p="positivo"

n="negativo"

método_A=c(rep(p,182),rep(n,18))

método_B=c(rep(p,175),rep(n,25))

método_C=c(rep(p,186),rep(n,14))

# criação de tabelas com os dados

tabela1=table(método_A,método_B)

tabela1

tabela2=table(método_A,método_C)

tabela2

tabela3=table(método_B,método_C)

tabela3

# coeficiente de Kappa (observação: para usar a função é necessário requerer o pacote "epicalc")

require(epicalc)

kap(tabela1)

kap(tabela2)

kap(tabela3)

# quanto mais próximo de 1 o valor de Kappa maior a concordância entre resultados

# como p < 0,05 o valor de concordância estimado  em todos os pares é estatisticamente significativo

# a função acima estima a concordância par a par já a função abaixo fornece uma concordância geral entre os métodos

kap.m.raters(data.frame(método_A,método_B, método_C))