ICC

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

Dataframe

df <- read_csv("icc_felipe.csv")

Parsed with column specification:
cols(
  .default = col_double(),
  id = col_integer()
)
See spec(...) for full column specifications.

Reformatear de wide a long

glimpse(long_df)

Observations: 156
Variables: 2
$ Valor_antes   <dbl> 195.319, 207.141, 223.182, 193.364, 143.069, 182.887, 201.670, 175.482, ...
$ Valor_despues <dbl> 196.319, 208.141, 224.182, 195.364, 143.069, 185.887, 202.670, 174.482, ...

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