2019 ICC_Ines Perez

packages

library("tidyverse")

Loading tidyverse: ggplot2
Loading tidyverse: tibble
Loading tidyverse: tidyr
Loading tidyverse: readr
Loading tidyverse: purrr
Loading tidyverse: dplyr
package 'ggplot2' was built under R version 3.4.4package 'dplyr' was built under R version 3.4.2Conflicts with tidy packages -------------------------------------------------------------------------
filter(): dplyr, stats
lag():    dplyr, stats

library("tidyverse")
library("irr")

Loading required package: lpSolve

df

df <- read.csv("https://docs.google.com/spreadsheets/d/e/2PACX-1vSrk7fAsC2u880LPwwyLGo8nz56h8JH3BAr5FmIZpBJfiDD4_CjQHq6wjxAWoyPwMb9hXLoLTcYhVOQ/pub?gid=633331745&single=true&output=csv")

selecciono columnas

Calculo ICC para las medidas

icc(df1, model = "twoway", type = "agreement")

 Single Score Intraclass Correlation

   Model: twoway 
   Type : agreement 

   Subjects = 217 
     Raters = 2 
   ICC(A,1) = 0.999

 F-Test, H0: r0 = 0 ; H1: r0 > 0 
 F(216,217) = 1440 , p = 2.52e-279 

 95%-Confidence Interval for ICC Population Values:
  0.998 < ICC < 0.999

el kappa para clase molar

select

creo un df para las 3 observaciones

el kappa

df2 %>% 
  kappam.fleiss(df2, detail=TRUE)

la condici'on tiene longitud > 1 y s'olo el primer elemento ser'a usadola condici'on tiene longitud > 1 y s'olo el primer elemento ser'a usadola condici'on tiene longitud > 1 y s'olo el primer elemento ser'a usado

 Fleiss' Kappa for m Raters (exact value)

 Subjects = 14 
   Raters = 3 
    Kappa = 1