ICC

Primero los paquetes

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

Dataframe

df <- read_csv("icc_felipe.csv")

Reformatear de wide a long

long_df1 <- df %>%
  select(`1`:`12`) %>% 
  gather("Grupo_antes", "Valor_antes")

long_df2 <- df %>%
  select(`a`:`l`) %>% 
  gather("Grupo_despues", "Valor_despues")


long_df <- bind_cols(long_df1, long_df2)

rm(df, long_df1, long_df2)

glimpse(long_df)

long_df <- long_df %>% 
  select(Valor_antes, Valor_despues)

Ahora el ICC icc(ratings, model = c(“oneway”, “twoway”), type = c(“consistency”, “agreement”), unit = c(“single”, “average”), r0 = 0, conf.level = 0.95)

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

 Single Score Intraclass Correlation

   Model: twoway 
   Type : agreement 

   Subjects = 156 
     Raters = 2 
   ICC(A,1) = 1

 F-Test, H0: r0 = 0 ; H1: r0 > 0 
 F(155,142) = 94504 , p = 2.56e-313 

 95%-Confidence Interval for ICC Population Values:
  1 < ICC < 1